Método Shape.RemoveFromCatalogMergeArea (Publisher)

Quita una forma del área de combinación de catálogos de la página especificada. Las formas eliminadas no se eliminan, sino que permanecen en su lugar en la página que contiene el área de combinación de catálogos.

Sintaxis

expresión. RemoveFromCatalogMergeArea

expresión Variable que representa un objeto Shape.

Valor devuelto

Nothing

Comentarios

Use el método AddToCatalogMergeArea de los objetos Shape o ShapeRange para agregar formas a un área de combinación de catálogos.

Use el método RemoveCatalogMergeArea para quitar el área de combinación de catálogos de una página de publicación, pero deje las formas que contiene.

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.