InlineShape.HasSmartArt Property (Word)

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

Version Added: Word 2010

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