Changing colours in MSGraph using VBA

M

Mixi

Hi, I’m creating charts using PP2003 with MSGraph 11.

I need to change the interior series colour of about 300 bar charts.

My problem is that the colour I need for SeriesCollection(1) is not a
standard colour but RGB(185, 220, 235).

I know how to changes the colour manually but I can’t figure out how to do
it in VBA

I have tried to define the interior colour direct by



ochart.SeriesCollection(1).Interior.Color = RGB(185, 220, 235)



I have also tried coding, click by click what I do manually, but it does not
work (see code below).

I don’t get any debug or error messages when I run the macro but the colour
does not change!!!

Please help!!!!!!



Sub Changecolor()

Dim ochart As Chart

Set ochart = ActivePresentation.Slides(1).Shapes(1).OLEFormat.Object

ochart.Colors(17) = RGB(185, 220, 235)

ochart.SeriesCollection(1).Interior.ColorIndex = 17

ochart.Application.Update

ochart.Application.Quit

End Sub
 

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

Similar Threads

Formatting Graphs with VBA in powerpoint 0
Changing MS Graph font with VBA 0
Change Gradient Fill Colors of Bar Chart data points 2
Setting a section to No Fill 2
CommandEffect in custom animation 0
How to use the CommandEffect in custom animation? 0
Change MSGraph Axis Range in VBA 1
Create several charts in one go using VBA 4

Top