'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
Sub TextOn() Dim s As Shape, ef As Effect For Each s In ActivePage.FindShapes(Type:=cdrTextShape) For Each ef In s.Effects If ef.Type = cdrTextOnPath Then ef.textOnPath.Path.AddToSelection Next ef s.AddToSelection Next sEnd Sub
Sub Blend()Dim s As shape, ef As effectFor Each s In ActivePage.FindShapes(Type:=cdrBlendGroupShape)For Each ef In s.effectsIf ef.Type = cdrBlend Then ef.Blend.blendGroup.AddToSelectionNext efs.AddToSelectionNext sEnd Subi tried for this blend, same issue blend main shapes are not selecting
similarly for extrude also
We say about this: “Grandma, give me something to drink, otherwise I’m so hungry that there’s nowhere to sleep.”
i could not understand
i tried but not succeeded