Shape.RemoveCatalogMergeArea メソッド (Publisher)

指定した文書ページから差し込み印刷領域を削除します。 差し込み印刷領域に含まれている図形はページの同じ場所に残りますが、差し込み印刷のデータ ソースには接続されなくなります。

構文

式。RemoveCatalogMergeArea

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

注釈

文書ページから差し込み印刷領域を削除しても、データ ソースは文書から切断されません。 データ ソースが文書に接続されているかどうかを確認するには、 Document オブジェクトの IsDataSourceConnected プロパティを使用します。

文書に差し込み印刷領域を追加するには、 Shapes コレクションの AddCatalogMergeArea メソッドを使用します。 1 文書ページに差し込み印刷領域を 1 つのみ追加できます。

例

次の使用例は、指定された文書に差し込み印刷領域を含むページがあるかどうか調べます。 差し込み印刷領域を含むページがあれば、差し込み印刷領域のすべての図形を削除して、差し込み印刷領域を文書から削除します。

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