Shape.SmartArt Property (Word)
Returns a SmartArt object that provides a way to work with the SmartArt associated with the specified shape. Read-only.
A variable that represents a Shape object.
The SmartArt property provides an entry point for interacting with a SmartArt graphic associated with the shape.
The following code example adds a SmartArt graphic to the active document.
Dim myShape As Shape
Dim mySmartArt As SmartArt
Set myShape = ActiveDocument.Shapes.AddSmartArt(Application.SmartArtLayouts(1), 100, 100, 400, 400)
Set mySmartArt = myShape.SmartArt