Remove Pattern from Shaperanges (2003)

Topic

New Reply

Hi All,
I have many sets of grouped shapes in a book. Each group originally consisted of shapes with differing solid fill colors. After these objects were grouped, a pattern was applied to each group.
I would now like to return them to the solid fills they had before they were grouped.
Is there a way via VBA to turn off a pattern for a shaperange, such that each element of that shaperange has the distinct fill color that it had before the pattern was applied?
Thanks a lot

Reply | Quote

Replies

Does this do what you want?

Sub RemovePattern()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Fill.Solid
Next shp
End Sub

Note: test it on a copy of the workbook first.

Reply | Quote

Thanks so much, Hans. That’s perfect.

Reply | Quote