Word.Application.SmartArtQuickStyles.md

title	keywords	f1_keywords	api_name	ms.assetid	ms.date	ms.localizationpriority
Application.SmartArtQuickStyles property (Word)	vbawd10.chm158335458	vbawd10.chm158335458	Word.Application.SmartArtQuickStyles	47cca923-fc88-6973-926c-2fa69c2f0f10	06/08/2017	medium

Application.SmartArtQuickStyles property (Word)

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

Syntax

expression. SmartArtQuickStyles

expression An expression that returns a 'Application' object.

Remarks

The set of styles represented by the SmartArtQuickStyles property correspond to the available styles in the Styles group on the Design tab on the SmartArt Tools contextual tab in Word.

Example

The following code example adds a SmartArt graphic to the active document and then sets the SmartArt graphic style to "Polished".

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.QuickStyle = Application.SmartArtQuickStyles.Item(6)

See also

Application Object

[!includeSupport and feedback]