Propriedade Shape.CatalogMergeItems (Publisher)

Retorna uma coleção CatalogMergeShapes que representa as formas incluídas na área de mesclagem do catálogo. Somente leitura.

Sintaxe

expressão. CatalogMergeItems

Expressão Uma variável que representa um objeto Shape .

Valor de retorno

CatalogMergeShapes

Comentários

A área de mesclagem de catálogo pode conter campos de dados de imagem e texto inseridos, além de outros elementos de design que você escolher.

Exemplo

O exemplo a seguir testa se qualquer página na publicação especificada contém uma área de mesclagem de catálogo e, se isso acontecer, ele retorna uma lista das formas que ela contém.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.