次の方法で共有

ShapeRange.RemoveFromCatalogMergeArea メソッド (Publisher)

  • [アーティクル]

指定されたページの差し込み印刷領域から、図形を削除します。 削除された図形は、差し込み印刷領域を含んでいるページ上の同じ場所に残ります。

構文

式。RemoveFromCatalogMergeArea

式ShapeRange オブジェクトを表す変数。

注釈

Shape オブジェクトまたは ShapeRange オブジェクトの AddToCatalogMergeArea メソッドを使用して、図形を差し込み印刷領域に追加します。

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