Gets or sets the path object
Syntax:
Property Get Path() As Shape
Property Set Path(ByVal Value As Shape)
Remarks:
The Path property returns or specifies the path Shape object to which the text is attached.
Examples:
The following VBA 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