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

preetidb · #1 12-27-2013, 03:11 PM

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 · #2 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 · #3 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

JohnWilson · #4 12-29-2013, 12:46 AM

Schemecolor is legacy code for use in ppt2003 and earlier.

preetidb · #5 12-30-2013, 03:22 PM

Thank you!

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to 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