Propriété Shape.CatalogMergeItems (Publisher)

Renvoie une collection CatalogMergeShapes qui représente les formes incluses dans la zone de fusion de catalogue. En lecture seule.

Syntaxe

expression. CatalogMergeItems

Expression Variable qui représente un objet Shape .

Valeur renvoyée

CatalogMergeShapes

Remarques

La zone de fusion de catalogue peut contenir des champs de données image et texte que vous avez insérés, en plus des autres éléments de conception que vous choisissez.

Exemple

L’exemple suivant teste si une page de la composition spécifiée contient une zone de fusion de catalogue et, si c’est le cas, elle retourne une liste des formes qu’elle contient.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.