'Sub textOnPath() Dim s As shape For Each s In ActiveSelectionRange If s.Type = cdrTextShape Then s.Selected = True Else s.Selected = False End If Next sEnd Subthis is selecting only text, by ignoring the control pathi want control path is also included in the selection
i tried but not succeeded