Shape.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 a Shape object.

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

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
Show: