Sub ToggleOutlineBehindFill()If ActiveSelection.Outline.BehindFill = True ThenActiveSelection.Outline.BehindFill = FalseElseActiveSelection.Outline.BehindFill = TrueEnd IfEnd Sub
The script i got it here. but this script does only working on single element only. if it is grouped then it is not working,
please someone edit this
myron sir please help
Just tried your code with my X7 and it works. I'll have to try at home on my 2022 version.
my request to add something in it sir.
if it is grouped it is not working... when in ungrouped it is working sir.
please update sir
Try this one
Dim s As Shape, sr As ShapeRangeSet sr = ActiveSelectionRange
For Each s In sr.Shapes.FindShapes() If s.Outline.Type = cdrOutline Then If s.Outline.BehindFill = True Then s.Outline.BehindFill = False Else s.Outline.BehindFill = True End If End If Next s
sir working. Thanking you so much sir