InlineShape.SmartArt Property (Word)
Office 2010
Returns a SmartArt object that provides a way to work with the SmartArt associated with the specified inline shape. Read-only.
The following code example adds a SmartArt graphic to the active document.
Dim myDoc As Document Dim myInlineShape As InlineShape Dim mySmartArt As SmartArt Set myDoc = ActiveDocument Set myInlineShape = myDoc.InlineShapes.AddSmartArt(Application.SmartArtLayouts(2), myDoc.Paragraphs(2).Range) Set mySmartArt = myShape.SmartArt