Propriedade Shape.HasSmartArt (Word)

Retorna True se não houver um diagrama SmartArt presente na forma. Somente leitura.

Sintaxe

expression. HasSmartArt

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

Exemplo

O exemplo de código a seguir mostra se a primeira forma no documento ativo contém SmartArt ou não.

Dim myShape As Shape 
 
Set myShape = ActiveDocument.Shapes(1) 
 
If myShape.HasSmartArt Then 
 MsgBox "The first shape contains SmartArt." 
Else 
 MsgBox "The first shape contains no SmartArt." 
End If

Confira também

Objeto Shape

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.