InlineShape.HasSmartArt property (Word)

Returns True if there is a SmartArt diagram present on the shape. Read-only.


expression. HasSmartArt

expression A variable that represents an 'InlineShape' object.


The following code example displays whether or not the first inline shape in the active document contains SmartArt.

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

See also

InlineShape Object