' Modify a Bulleted List in Microsoft PowerPoint



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
search for scripts

VbsEdit contains all these sample scripts!





Home   Scripts

Copyright © 2001-2020 adersοft