Application.SmartArtLayouts Property (Word)

Office 2013 and later
GitHub-Mark-64px

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Returns a SmartArtLayouts object that represents the set of SmartArt layouts that are currently loaded in the application. Read-only.

expression .SmartArtLayouts

expression An expression that returns a Application object.

The set of layouts represented by the SmartArtLayouts property correspond to the available layouts in the Layouts group on the Design tab on the SmartArt Tools contextual tab in Word.

The following code example adds a SmartArt graphic to the active document and then sets the SmartArt graphic layout to "Grouped List".

Dim myShape As Shape 
Dim mySmartArt As SmartArt 
 
Set myShape = ActiveDocument.Shapes.AddSmartArt(Application.SmartArtLayouts(1), 50, 50, 200, 200) 
Set mySmartArt = myShape.SmartArt 
 
mySmartArt.Layout = Application.SmartArtLayouts(15)
Show: