Hallo,
I try to search for outlines with Special Color in a Document, unfortunately it doesn´t work
Sub Outline()Dim s As ShapeDim sr As New ShapeRangeFor Each s In ActivePage.Shapes.FindShapes()If s.Outline.Type = cdrColorRGB And s.Outline.Type = RGB(255, 0, 0) Thens.GroupEnd If
Next sEnd Sub
please help
You need this macro: Select Same 2
Patti
You can try code below
Sub Outline()Set sr = ActivePage.Shapes.FindShapes(Query:="@outline.color = RGB(255, 0, 0)")sr.GroupEnd Sub
Best regards
Mek