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

JohnWilson · #1 12-28-2013, 03:48 AM

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

In EDIT only this is the code:

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 · #2 12-28-2013, 07:06 PM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
What logic does P.P. use to move elements on theme change?	Malcom	PowerPoint	2	05-24-2013 02:55 AM
color change for same shape	ajkiran	PowerPoint	1	11-10-2012 07:41 AM
Change Colour Theme in Word with VBA	Davidoff78	Word VBA	1	06-28-2012 05:23 PM
Help: office 2010 lost its color theme	lczlcz	Office	7	03-26-2012 11:37 PM
Change Automatic Fill Color	Leanne	PowerPoint	1	11-04-2009 08:34 PM