Here's your example. Remember to add reference Microsoft Powerpoint.
Dim app As New PowerPoint.Application
Dim Presentation As PowerPoint.Presentation
Dim shape As PowerPoint.shape
Dim myDocument As PowerPoint.Slide
Set Presentation = app.Presentations.Add
Presentation.Slides.Add 1, ppLayoutBlank
Set myDocument = Presentation.Slides(1)
myDocument.Shapes.AddPictu
Presentation.Slides.Add 2, ppLayoutBlank
Set myDocument = Presentation.Slides(2)
myDocument.Shapes.AddPictu
Presentation.SaveAs "c:\MiFirstPPS.PPS"
Presentation.Close
app.Quit
Set app = Nothing
Main Topics
Browse All Topics





by: ryancysPosted on 2003-03-10 at 22:24:40ID: 8109051
<Interesting! Listening..>