ShapeRange.TextEffect (Excel)

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

Dim tefTextEffect As TextEffectFormat
Set tefTextEffect = ActiveChart.OLEObjects.ShapeRange.TextEffect