Compartilhar via

Objeto BorderArtFormat (Publisher)

  • Artigo

Representa a formatação da borda artística aplicada à forma específica.

Comentários

As bordas artísticas são bordas de imagens que podem ser aplicadas a caixas de textos, quadros de imagens ou retângulos.

Use a propriedade BorderArt de uma forma para retornar um objeto BorderArtFormat.

Use o método Set para especificar o tipo de borda artística que você deseja aplicar a uma imagem.

Você também pode usar a propriedade Name para especificar qual tipo de borda artística ser aplicada a uma imagem.

Observação

Como Name é a propriedade padrão dos objetos BorderArt e BorderArtFormat , você não precisa declarar explicitamente ao definir o tipo BorderArt. A instrução Shape.BorderArtFormat = Document.BorderArts(1) é equivalente a Shape.BorderArtFormat.Name = Document.BorderArts(1).Name.

Use o método Delete para remover a borda artística de uma imagem.

Exemplo

O exemplo a seguir retorna a borda artística da primeira forma na primeira página da publicação ativa e exibe seu nome em uma caixa de mensagem.

Dim bdaTemp As BorderArtFormat 
 
Set bdaTemp = ActiveDocument.Pages(1).Shapes(1).BorderArt 
MsgBox "BorderArt name is: " &bdaTemp.Name

O exemplo a seguir testa a existência de bordas artísticas em cada forma de cada página do documento ativo. Qualquer borda artística encontrada será definida com o mesmo tipo.

Sub SetBorderArt() 
Dim anyPage As Page 
Dim anyShape As Shape 
Dim strBorderArtName As String 
 
strBorderArtName = Document.BorderArts(1).Name 
 
For Each anyPage in ActiveDocument.Pages 
For Each anyShape in anyPage.Shapes 
With anyShape.BorderArt 
If .Exists = True Then 
.Set(strBorderArtName) 
End If 
End With 
Next anyShape 
Next anyPage 
End Sub

O exemplo a seguir define todo o BorderArt em um documento como o mesmo tipo usando a propriedade Name .

Sub SetBorderArtByName() 
Dim anyPage As Page 
Dim anyShape As Shape 
Dim strBorderArtName As String 
 
strBorderArtName = Document.BorderArts(1).Name 
 
For Each anyPage in ActiveDocument.Pages 
For Each anyShape in anyPage.Shapes 
With anyShape.BorderArt 
If .Exists = True Then 
.Name = strBorderArtName 
End If 
End With 
Next anyShape 
Next anyPage 
End Sub

O exemplo a seguir testa a existência de bordas artísticas em cada forma de cada página do documento ativo. 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

Métodos

Propriedades

Confira também

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.