Powerpoint slide bullet and text help

[chilly442]

I have a excel sheet that has a bunch of graphs on it. Thanks to a few of you I am able to copy these graphs into a PowerPoint Presentation. Now, at the end of the presentation, I need to build a "Successes" slide to look like the following:

Successes

Safety Cost Improvement
* *
* *
* *
* *
* *
* *
Reliability Aha/Learning
* *
* *
* *
* *
* *
* *

The "*" are supposed to be bullets that the user will put text with.
The headers are supposed to be "bold."
I can't get the layout to work. Any suggestions?
Stars for all that help!!!

Chilly442

Here is the code that I have so far.

Set pptSlide = pptPres.Slides.Add(i + 1, ppLayoutTwoColumnText)

'successes
pptSlide.Shapes("Rectangle 2").TextFrame.TextRange.Text = "Successes"

'safety
pptSlide.Shapes("Rectangle 3").TextFrame.TextRange.Text = "Safety" + Chr$(CharCode:=13) + " " + Chr$(CharCode:=13) + " "

'bullet
pptSlide.Shapes("Rectangle 3").TextFrame.TextRange.Paragraphs(Start:=7, Length:=1).ParagraphFormat.Bullet.Visible = msoTrue

'reliability
pptSlide.Shapes("Rectangle 3").TextFrame.TextRange.Text = "Reliability"

'cost improvement
pptSlide.Shapes("Rectangle 4").TextFrame.TextRange.Text = "Cost Improvements"

'aha/learning
pptSlide.Shapes("Rectangle 4").TextFrame.TextRange.Text = "Aha/Learning"

i = i + 1