Shape.CatalogMergeItems-Eigenschaft (Publisher)

Gibt eine CatalogMergeShapes-Auflistung zurück, die die im Katalogzusammenführungsbereich enthaltenen Formen darstellt. Schreibgeschützt.

Syntax

Ausdruck. CatalogMergeItems

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Rückgabewert

CatalogMergeShapes

HinwBemerkungeneise

Der Katalogzusammenführungsbereich kann neben anderen design-Elementen, die Sie auswählen, auch Bild- und Textdatenfelder enthalten, die Sie eingefügt haben.

Beispiel

Im folgenden Beispiel wird getestet, ob eine Seite in der angegebenen Publikation einen Katalogzusammenführungsbereich enthält. Wenn dies der Fall ist, wird eine Liste der darin enthaltenen Shapes zurückgegeben.

Sub ListCatalogMergeAreaContents() 
 
 Dim pgPage As Page 
 Dim mmLoop As Shape 
 Dim intCount As Integer 
 
 For Each pgPage In ThisDocument.Pages 
 For Each mmLoop In pgPage.Shapes 
 
 If mmLoop.Type = pbCatalogMergeArea Then 
 
 With mmLoop.CatalogMergeItems 
 For intCount = 1 To .Count 
 Debug.Print "Shape ID: " & _ 
 mmLoop.CatalogMergeItems.Item(intCount).ID 
 Debug.Print "Shape Name: " & _ 
 mmLoop.CatalogMergeItems.Item(intCount).Name 
 Next 
 End With 
 
 End If 
 
 Next mmLoop 
 Next pgPage 
 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.