Método Shape.RemoveCatalogMergeArea (Publisher)

Exclui a área de mesclagem de catálogos da página de publicação especificada. Todas as formas contidas na área de mesclagem de catálogos permanecem no lugar na página, mas não são mais conectados à fonte de dados da mesclagem de catálogos.

Sintaxe

expressão. RemoveCatalogMergeArea

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

Comentários

Remover uma área de mesclagem de catálogos de uma página de publicação não desconecta a fonte de dados da publicação. Use a propriedade IsDataSourceConnected do objeto Document para determinar se a fonte de dados está conectada à publicação.

Use o método AddCatalogMergeArea da coleção Shapes para adicionar uma área de mesclagem de catálogos à publicação. Uma página de publicação pode conter somente uma área de mesclagem de catálogos.

Exemplo

O exemplo abaixo testa se alguma página da publicação especificada contém uma área de mesclagem de catálogos. Se positivo, todas as formas são removidas da área de mesclagem de catálogos e excluídas e a área é, então, removida da publicação.

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

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.