Shape.HasSmartArt Property (Word)
Returns True if there is a SmartArt diagram present on the shape. Read-only.
Version Information
Version Added: Word 2010
Syntax
expression .HasSmartArt
expression A variable that represents a Shape object.
Example
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