Shape.RemoveFromCatalogMergeArea, méthode (Publisher)

Efface une forme de la zone de fusion de catalogue de la page spécifiée. Les formes supprimées ne sont pas supprimées, mais restent en place sur la page qui contient la zone de fusion du catalogue.

Syntaxe

expression. RemoveFromCatalogMergeArea

Expression Variable qui représente un objet Shape .

Valeur renvoyée

Aucune

Remarques

Utilisez la méthode AddToCatalogMergeArea des objets Shape ou ShapeRange pour ajouter des formes à une zone de fusion de catalogue.

Utilisez la méthode RemoveCatalogMergeArea pour supprimer la zone de fusion de catalogue d’une page de composition, tout en conservant les formes qu’elle contient.

Exemple

L'exemple suivant montre comment déterminer si une page de la composition spécifiée contient une zone de fusion de catalogue. Si c'est le cas, toutes les formes sont effacées de la zone de fusion de catalogue et supprimées, et la zone de fusion de catalogue est ensuite supprimée de la composition.

Sub DeleteCatalogMergeAreaAndAllShapesWithin() 
 Dim pgPage As Page 
 Dim mmLoop As Shape 
 Dim intCount As Integer 
 Dim strName As String 
 
 For Each pgPage In ThisDocument.Pages 
 For Each mmLoop In pgPage.Shapes 
 
 If mmLoop.Type = pbCatalogMergeArea Then 
 With mmLoop.CatalogMergeItems 
 For intCount = .Count To 1 Step -1 
 strName = mmLoop.CatalogMergeItems.Item(intCount).Name 
 .Item(intCount).RemoveFromCatalogMergeArea 
 pgPage.Shapes(strName).Delete 
 Next 
 End With 
 mmLoop.RemoveCatalogMergeArea 
 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.