Propiedad Shape.CatalogMergeItems (Publisher)

Devuelve una colección CatalogMergeShapes que representa las formas incluidas en el área de combinación de catálogos. Solo lectura.

Sintaxis

expresión. CatalogMergeItems

expresión Variable que representa un objeto Shape.

Valor devuelto

CatalogMergeShapes

Observaciones

El área de combinación de catálogos puede contener campos de datos de imagen y texto que haya insertado, además de otros elementos de diseño que elija.

Ejemplo

En el ejemplo siguiente se comprueba si alguna página de la publicación especificada contiene un área de combinación de catálogos y, si lo hace, devuelve una lista de las formas que contiene.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.