Как показать слайды Power Point

OLE1.CreateLink ("c:\Презентация1.ppt")

OLE1.DoVerb

Private Sub OLE1_Click()
SendKeys " "
End Sub

Option Explicit
Dim PreSent As PowerPoint.Application 'Object 'создать переменную для объекта PowerPoint
Dim APower As Byte, BPower As Byte
End Sub
 
Private Sub Form_Load()
Set PreSent = CreateObject("powerpoint.Application") 'создаем объект PowerPoint
PreSent.Activate 'активируем
PreSent.Presentations.Open "c:\5klas.ppt" 'подгружаем файл
PreSent.WindowState = ppWindowMinimized 'сворачиваем от юзера
PreSent.Presentations.Application.ActivePresentation.SaveAs App.Path + "\temp", ppSaveAsJPG
' сахраняем как серию картинок во временную папку
PreSent.Quit ' закрываем обьект
' потом показываем картинки на форме
File2.Path = App.Path + "\temp"
Image1.Picture = LoadPicture(App.Path + "\" + File1.List(0))
BPower = 2
End Sub
 
Private Sub Command1_Click()
APower = File1.ListCount
If B <= A Then
Image1.Picture = LoadPicture(App.Path + "\temp\" + "слайд" + CStr(BPower) + ".JPG")
BPower = BPower + 1
Else
MsgBox "Показ окончен", vbCritical + vbOKOnly, "ЗАВЕРШЕНО"
Kill (App.Path + "\temp\*.*")
End If