Propriedade Application.SmartArtLayouts (Word)
Retorna um objeto SmartArtLayouts que representa o conjunto de layouts SmartArt que estão atualmente carregados no aplicativo. Somente leitura.
Sintaxe
expression. SmartArtLayouts
Expressão Uma expressão que retorna um objeto 'Application'.
Comentários
O conjunto de layouts representado pela propriedade SmartArtLayouts corresponde aos layouts disponíveis no grupo Layouts na guia Design na guia contextual Ferramentas SmartArt no Word.
Exemplo
O exemplo de código a seguir adiciona um elemento de gráfico SmartArt ao documento ativo e define o layout do gráfico SmartArt como "Lista Agrupada".
Dim myShape As Shape
Dim mySmartArt As SmartArt
Set myShape = ActiveDocument.Shapes.AddSmartArt(Application.SmartArtLayouts(1), 50, 50, 200, 200)
Set mySmartArt = myShape.SmartArt
mySmartArt.Layout = Application.SmartArtLayouts(15)
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.