Colorize SmartArt elements with VBA in PowerPoint

[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

 

[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)

 

[ingrid makkinje]

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

 

[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

 

[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! ;-)