InlineShape.HasSmartArt property (Word)
Returns True if there is a SmartArt diagram present on the shape. Read-only.
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." Else MsgBox "The first shape contains no SmartArt." End If