Colorize Nightmare

[Canuckish]

I have a presentation filled with shapes that are the "wrong" kind of red (thanks Marketing) and need to make them the "right" kind of red. A few problems:

1) I don't know what the red value "3747998" means when, with the first shape for re-coloring selected

debug.print ActiveWindow.Selection.ShapeRange.Fill.ForeColor
Worse still, there doesn't seem to be the ''record macro'' button in my PPT app, and

debug.print ActiveWindow.Selection.ShapeRange.Fill.ForeColor.RGB
gives the exact same 7-digit number

2)Once I get the value of the selected shape back, how do I do a loop through EACH shape in the deck with a loop, as in

"If the color value = 3747998 then make it RGB(181, 18, 27)"

Thanks for any help; I am using Excel 2010 on Windows 7.

 

[mumps]

Try:

Sub ChangeColor()
    Dim sh As Shape
    For Each sh In Sheets("Sheet1").Shapes
        sh.Fill.ForeColor.RGB = RGB(181, 18, 27)
    Next sh
End Sub

Change the sheet name to suit your needs. By the way, this will change the color in all the shapes. I'm not sure if this is what you wanted.

 

[Canuckish]

Thanks for the reply - but what is the powerpoint equivalent of "in sheets" and the sheet name?

 

[mole999]

have you tried right clicking on shape, changing the colour and then using F4 to replay the action on the next shape you select (not 100% sure this will work in powerpoint)

 

[mumps]

I'm not familiar with VBA in PowerPoint. You said you were using Excel 2010.

 

[thatoneguy650]

This is my first time using vba in powerpoint, but I think I got it. This loops through all of the slides and for each slide it goes to each shape and determines if its color is 3747998. If it is then it sets the fill and outline color to the RGB value you gave. It works on a test presentation, but please be sure to try it on a copy of your presentation.

Sub test()

Dim allShapes As Shapes


For i = 1 To ActivePresentation.Slides.Count
Set allShapes = ActivePresentation.Slides(i).Shapes




For Each thisShape In allShapes
    If thisShape.Fill.ForeColor.RGB = 3747998 Then
        thisShape.Fill.ForeColor.RGB = RGB(181, 18, 27)
        thisShape.Line.ForeColor.RGB = RGB(181, 18, 27)
    End If
Next thisShape


Next


End Sub

 

[Canuckish]

have you tried right clicking on shape, changing the colour and then using F4 to replay the action on the next shape you select (not 100% sure this will work in powerpoint)

Yes that would work, but it's a lengthy (automated) presentation and will soak up a lot of hours if I have to do it each time....

 

[mole999]

didn't know how many you had to do

 

[Canuckish]

This is my first time using vba in powerpoint, but I think I got it. This loops through all of the slides and for each slide it goes to each shape and determines if its color is 3747998. If it is then it sets the fill and outline color to the RGB value you gave. It works on a test presentation, but please be sure to try it on a copy of your presentation.

Sub test()

Dim allShapes As Shapes


For i = 1 To ActivePresentation.Slides.Count
Set allShapes = ActivePresentation.Slides(i).Shapes




For Each thisShape In allShapes
    If thisShape.Fill.ForeColor.RGB = 3747998 Then
        thisShape.Fill.ForeColor.RGB = RGB(181, 18, 27)
        thisShape.Line.ForeColor.RGB = RGB(181, 18, 27)
    End If
Next thisShape


Next


End Sub

This is awesome. One tiny question: how do I change it so that any shapes within shapes are also checked and changed? I.e. I have a table with shapes in it, same issue...

 

[thatoneguy650]

Can you upload an example of a slide with a shape in the table? I'm not a powerpoint guru so I'm not sure what you mean.