Demonstration script that creates a PowerPoint presentation, adds a slide, and then modifies the bulleted list found on that slide. This script requires the PowerPoint template C:\Program Files\Microsoft Office\Templates\Presentation Designs\Globe.pot.

Visual Basic
Edit|Remove
Const ppLayoutText = 2

Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPresentation = objPPT.Presentations.Add
objPresentation.ApplyTemplate _
    ("C:\Program Files\Microsoft Office\" & _
        "Templates\Presentation Designs\Globe.pot")
Set objSlide = objPresentation.Slides.Add _
    (1, ppLayoutText)

Set objShapes = objSlide.Shapes

strText = "Assistant Vice-President" & vbCrLf
strText = strText & "Omaha, Nebraska" & vbcrlf
strText = strtext & "Harvard University"

Set objTitle = objShapes.Item("Rectangle 3")
objTitle.TextFrame.TextRange.Text = strText