Sub Test() Dim s As Shape Dim e As Effect For Each s In ActivePage.FindShapes(Type:=cdrTextShape) For Each e In s.Effects If e.Type = cdrTextOnPath Then e.TextOnPath.DistanceFromPath = 1 Next e Next s End Sub