TextEffectFormat.PresetShape property (Publisher)

Returns or sets an MsoPresetTextEffectShape constant that represents the shape of the specified WordArt. Read/write.

Syntax

expression.PresetShape

expression A variable that represents a TextEffectFormat object.

Return value

MsoPresetTextEffectShape

Remarks

The PresetShape property value can be one of the MsoPresetTextEffectShape constants declared in the Microsoft Office type library.

Example

This example sets the shape of the first shape on the first page of the active publication to a chevron whose center points down. For this example to work, the first shape must be a WordArt shape.

Sub ChangeTextEffect() 
 With ActiveDocument.Pages(1).Shapes(1) 
 If .Type = msoTextEffect Then 
 .TextEffect.PresetShape = msoTextEffectShapeChevronDown 
 End If 
 End With 
End Sub

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.