ShapeRange.TextEffect (PowerPoint)

Returns a TextEffectFormat object that contains text-effect formatting properties for the specified shape.

Applies to ShapeRange objects that represent WordArt.

Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = ActivePresentation.Slides(1).Shapes(1).Ungroup.TextEffect