Shape.CatalogMergeItems プロパティ (Publisher)

差し込み印刷領域に含まれる図形を表す CatalogMergeShapes コレクションを返します。 読み取り専用です。

構文

式。CatalogMergeItems

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

戻り値

CatalogMergeShapes

注釈

差し込み印刷領域には、選択した他のデザイン要素に加えて、挿入した画像とテキストのデータ フィールドを含めることができます。

例

次の例では、指定した文書内のページに差し込み印刷領域が含まれているかどうかをテストし、含まれている図形の一覧を返します。

Sub ListCatalogMergeAreaContents() 
 
 Dim pgPage As Page 
 Dim mmLoop As Shape 
 Dim intCount As Integer 
 
 For Each pgPage In ThisDocument.Pages 
 For Each mmLoop In pgPage.Shapes 
 
 If mmLoop.Type = pbCatalogMergeArea Then 
 
 With mmLoop.CatalogMergeItems 
 For intCount = 1 To .Count 
 Debug.Print "Shape ID: " & _ 
 mmLoop.CatalogMergeItems.Item(intCount).ID 
 Debug.Print "Shape Name: " & _ 
 mmLoop.CatalogMergeItems.Item(intCount).Name 
 Next 
 End With 
 
 End If 
 
 Next mmLoop 
 Next pgPage 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。