Shape.RemoveFromCatalogMergeArea 方法 (Publisher)

从指定页面的目录合并区中删除形状。 已删除的形状不会删除，而是保留在包含目录合并区域的页面上。

语法

表达式。RemoveFromCatalogMergeArea

表达 一个代表 Shape 对象的变量。

返回值

Nothing

注解

使用 Shape 或ShapeRange 对象的 AddToCatalogMergeArea 方法可将形状添加到目录合并区域。

使用 RemoveCatalogMergeArea 方法从出版物页中删除目录合并区域，但保留其包含的形状。

示例

以下示例测试指定出版物的任意页面是否包含目录合并区。 如果包含，将删除该目录合并区中的所有形状，然后将该目录合并区从出版物中删除。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。