Propriedade InlineShape.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 'InlineShape'.

Exemplo

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

Dim myInlineShape As InlineShape 
 
Set myInlineShape = ActiveDocument.InlineShapes(1) 
 
If myInlineShape.HasSmartArt Then 
 MsgBox "The first shape contains SmartArt." 
Else 
 MsgBox "The first shape contains no SmartArt." 
End If

Confira também

Objeto InlineShape

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.