Shape.SmartArt Property (Word)
Returns a SmartArt object that provides a way to work with the SmartArt associated with the specified shape. Read-only.
expression 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