Método Shape.SetShapesDefaultProperties (Publisher)

Aplica a formatação da forma ou do intervalo de formas especificado à forma padrão. As formas criadas após o uso deste método terão essa formatação como padrão.

Sintaxe

expressão. SetShapesDefaultProperties

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

Comentários

O método SetShapesDefaultProperties armazena dois conjuntos diferentes de propriedades padrão, um para a propriedade AutoShapeType de um objeto Shape e outro para um objeto TextFrame.

Em outras palavras, se esse método for chamado em uma AutoForma, a formatação padrão do objeto só será aplicada a novas AutoFormas e não se aplicará a novas caixas de texto. Se esse método for chamado em uma caixa de texto, a formatação padrão do objeto só será aplicada a novas caixas de texto e não se aplicará a novas AutoFormas.

Exemplo

Este exemplo adiciona um retângulo à publicação ativa, formata o preenchimento do retângulo, aplica a formatação do retângulo à forma padrão e adiciona outro retângulo menor ao documento. O segundo retângulo terá o mesmo preenchimento que o primeiro.

With ActiveDocument.Pages(1).Shapes 
 
 With .AddShape(Type:=msoShapeRectangle, _ 
 Left:=5, Top:=5, Width:=80, Height:=60) 
 With .Fill 
 .ForeColor.RGB = RGB(0, 0, 255) 
 .BackColor.RGB = RGB(0, 204, 255) 
 .Patterned Pattern:=msoPatternHorizontalBrick 
 End With 
 .SetShapesDefaultProperties 
 End With 
 
 .AddShape Type:=msoShapeRectangle, _ 
 Left:=90, Top:=90, Width:=40, Height:=30 
 
End With 

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.