Método BorderArtFormat.Set (Publisher)

Define o tipo de borda artística aplicada à forma especificada.

Sintaxe

expressão. Set (BorderArtName)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
BorderArtName	Obrigatório	Variant	O nome do tipo de borda artística aplicada à forma especificada.

Comentários

Você também pode definir o tipo de BorderArt aplicado a uma forma usando a propriedade Name .

Exemplo

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

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.