Método BorderArtFormat.Delete (Publisher)
Exclui o objeto especificado.
Sintaxe
expressão. Excluir
Expressão Uma variável que representa um objeto BorderArtFormat .
Comentários
Ocorrerá um erro em tempo de execução se o objeto especificado não existir.
Exemplo
O exemplo a seguir testa a existência de bordas artísticas em cada forma de cada página da publicação ativa. Se houver bordas artísticas, elas serão excluídas.
Sub DeleteBorderArt()
Dim anyPage As Page
Dim anyShape As Shape
For Each anyPage in ActiveDocument.Pages
For Each anyShape in anyPage.Shapes
With anyShape.BorderArt
If .Exists = True Then
.Delete
End If
End With
Next anyShape
Next anyPage
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.