Microsoft Office
Microsoft PowerPoint
Modify a Bulleted List in Microsoft PowerPoint
' 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
|
VbsEdit includes all these samples!
Download Now!
Version 5.4.1 - This package includes VbsEdit 32-bit, VbsEdit 64-bit, HtaEdit 32-bit and HtaEdit 64-bit.
The evaluation version never expires.
Home
Buy Now
HtaEdit
Support
Video
What's new ?
|