InlineShape.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 an InlineShape object.
Example
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."
Else
MsgBox "The first shape contains no SmartArt."
End If