EffectTextOnPath.Path

Property Path As Shape

The Path property returns or sets the path Shape object to which the text is attached.

The following code example applies a red outline to all paths with text attached:

Sub Test1() 
 Dim s As Shape, eff As Effect 
 For Each s In ActivePage.FindShapes(, cdrTextShape) 
  For Each eff In s.Effects 
   If eff.Type = cdrTextOnPath Then 
    eff.TextOnPath.Path.Outline.Color.RGBAssign 255, 0, 0 
   End If 
  Next eff 
 Next s 
End Sub