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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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