PresetTextEffect Property Example
This example sets the style for all WordArt on myDocument
to the first style listed in the WordArt Gallery dialog box.
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
If s.Type = msoTextEffect Then
s.TextEffect.PresetTextEffect = msoTextEffect1
End If
Next