Shape.TextEffect (Excel)

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

Dim shp As Shape: Set shp = 
Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = shp.TextEffect