Hello friends, I am dealing with this code but apparently I had no luck- target assign color '' UserAssignEx ''search all colors assigned aboveI attached the code I hope they help are new in VBAthanks
Private Sub test() Dim s As Shape, sp As Shape Dim sr As ShapeRange Dim pwc As PowerClip Dim c As New Color c.RGBAssign 255, 0, 0c.UserAssignEx For Each s In ActiveSelection.Shapes.FindShapes()c If s.Outline.Type = cdrOutline Or Not s.PowerClip Is Nothing Then Set pwc = Nothing On Error Resume Next Set pwc = s.PowerClip On Error GoTo 0 If Not pwc Is Nothing Then For Each sp In pwc.Shapes If sp.Outline.Type = cdrOutline Then sp.UngroupAll sp.OverprintOutline = True End If Next sp Else
If s.Outline.Type = cdrOutline Then s.OverprintOutline = True End If End IfEnd IfNext sEnd Sub