change colours or propeties on all items

[k0023382]

Hi there,
I have been presented with some 20 plus templates, each workbook/template contains between 5 and 20 sheets, depending on the sheet, they make have extra items, charts, different shapes and maybe some tables.

I have been told to change the generic colours to keep up with the new marketing material.

To amend fonts and backgrounds it is easy just for cells.

Sub Macro1()
With Application.FindFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(128, 0, 128)
End With
With Application.ReplaceFormat.Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(128, 100, 128)
End With
Cells.Replace What:="", Replacement:="", LookAt:=xlPart, ReplaceFormat:=True
End Sub

Now the tricky part, by using VBA a need to find and replace one colour for another by checking all the items on each template.
I wonder if there is a generic way to go through ALL THE ITEMS, and replace (128, 0, 128) with (128, 100, 128).
Many thanks