InlineShape.HasSmartArt property (Word)

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

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

See also

InlineShape Object