Colorize SmartArt elements with VBA in PowerPoint

I

ingrid makkinje

Since I could not find a section for PowerPoint and VBA I drop my question
here.
I would like to change to fill color of one of the elements of a smartart
graphics,
Below listed is the code that I normally used for changing Autoshapes, but
this does not work anymore. I hope someone can help me with this.


Public Sub FillColor1()
'On Error GoTo Errorhandler

With ActiveWindow.Selection.ShapeRange
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.RGB = RGB(143, 199, 255)
End With
ActiveWindow.BlackAndWhite = msoTrue
ActiveWindow.Selection.ShapeRange.BlackWhiteMode = msoBlackWhiteAutomatic
ActiveWindow.BlackAndWhite = msoFalse
Exit Sub
Errorhandler:
MsgBox "Nothing appropriate is currently selected", vbOKOnly, "User
Error"
End Sub
 
J

Jean-Guy Marcil

ingrid makkinje was telling us:
ingrid makkinje nous racontait que :
Since I could not find a section for PowerPoint and VBA I drop my
question here.
I would like to change to fill color of one of the elements of a
smartart graphics,
Below listed is the code that I normally used for changing
Autoshapes, but this does not work anymore. I hope someone can help
me with this.

Please, do not post the same message in multiple groups. It just wastes
everybody's time.
(See. vba.general)
 
I

ingrid makkinje

Sorry! That was not my intention. How can I move this message to the vba
general group?
Ingrid
 
D

Doug Robbins - Word MVP

You can't.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
 
J

Jean-Guy Marcil

ingrid makkinje was telling us:
ingrid makkinje nous racontait que :
Sorry! That was not my intention. How can I move this message to the
vba general group?
Ingrid

But, the thing is I posted this message because you had already posted this
exact same message in the vba.general group.... Posting the same message
twice in the same group is just as bad! ;-)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top