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 のサポートおよびフィードバックを参照してください。