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 sEnd Sub