![]() |
#2
|
|||
|
|||
![]()
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 |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Malcom | PowerPoint | 2 | 05-24-2013 02:55 AM |
color change for same shape | ajkiran | PowerPoint | 1 | 11-10-2012 07:41 AM |
![]() |
Davidoff78 | Word VBA | 1 | 06-28-2012 05:23 PM |
![]() |
lczlcz | Office | 7 | 03-26-2012 11:37 PM |
![]() |
Leanne | PowerPoint | 1 | 11-04-2009 08:34 PM |