Change accent theme color used as shape fill (not RGBs)

[preetidb]

Hi,



Is it possible to select a shape on a slide that uses accent 1 as its fill colour and change its fill colour to accent 2 using vba? I would prefer to use the accents rather than RGBs so that it doesn't matter which color theme is used.

Many thanks,
preetidb

[JohnWilson]

You need to say whether you are working in edit mode or show mode.

In EDIT only this is the code:

Sub AC2()
Dim oshp As Shape
Set oshp = ActiveWindow.Selection.ShapeRange(1)
oshp.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent2
End Sub

It will NOT work in show mode.

[preetidb]

Hi John,

I am working in edit mode. Thank you for your help - it was just what I needed. I found many examples but the majority used RGBs and then the confusion on my part with schemecolor/themecolor.

Regards,
preetidb

[JohnWilson]

Schemecolor is legacy code for use in ppt2003 and earlier.

[preetidb]

Thank you!