Método Shape.RemoveCatalogMergeArea (Publisher)

Elimina el área de combinación de catálogos de la página especificada de una publicación. Todas las formas incluidas en el área de combinación de catálogos se conservan en el mismo lugar de la página, aunque dejan de estar conectadas al origen de datos de la combinación de catálogos.

Sintaxis

expresión. RemoveCatalogMergeArea

expresión Variable que representa un objeto Shape.

Observaciones

Cuando se elimina un área de combinación de catálogos de la página de una publicación, el origen de datos no se desconecta de la publicación. Utilice la propiedad IsDataSourceConnected del objeto Document para determinar si hay un origen de datos conectado a una publicación.

Utilice el método AddCatalogMergeArea de la colección Shapes para agregar un área de combinación de catálogos a una publicación. La página de una publicación sólo puede contener un área de combinación de catálogos.

Ejemplo

En el siguiente ejemplo se comprueba si alguna de las páginas de la publicación especificada contiene un área de combinación de catálogos. En caso afirmativo, se quitan y eliminan todas las formas del área de combinación de catálogos y, a continuación, se quita el área de combinación de catálogos de la publicación.

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

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.