Objeto BorderArt (Publisher)
Representa um tipo disponível de borda artística. Bordas artísticas são bordas de imagens que podem ser aplicadas a caixas de texto, quadros de imagens ou retângulos. O objeto BorderArt é um membro da coleção BorderArts. A coleção BorderArts contém todas as bordas artísticas disponíveis para uso na publicação especificada.
Comentários
A coleção BorderArts inclui todos os tipos de bordas artísticas personalizados criados pelo usuário para a publicação especificada.
Use a propriedade Item da coleção BorderArts para retornar um objeto BorderArt específico. O argumento Index da propriedade Item pode ser o número ou o nome do objeto BorderArt.
Use a propriedade Name para especificar qual tipo de borda artística ser aplicada a uma imagem.
Observação
Como Name é a propriedade padrão do objeto BorderArt e do objeto 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.
Exemplo
Este exemplo retorna o BorderArt chamado Apples da publicação ativa.
Dim bdaTemp As BorderArt
Set bdaTemp = ActiveDocument.BorderArts.Item (Index:="Apples")
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
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.