Shape.RemoveFromCatalogMergeArea 方法 (Publisher)

移除指定頁面型錄合併列印區域中的圖案。 移除的圖形不會刪除，而是保留在包含型錄合併列印區域的頁面上。

語法

運算式。RemoveFromCatalogMergeArea

表達 代表 Shape 物件的變數。

傳回值

無

註解

使用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 支援與意見反應。