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

Формулировка задачи:

Доброго времени суток. Помогите, пожалуйста, разобраться с OLE. Какой код вставить, чтобы на форме в окне перелистывать слайды? Связываю OLE с обьектом «Презентация Microsoft Power Point» Загружаю в него файл
OLE1.CreateLink ("c:\Презентация1.ppt")
Запускаю показ слайдов отдельным процессом
OLE1.DoVerb
Пробовал так
Private Sub OLE1_Click()
SendKeys " "
End Sub
Ничего не получается - следующий слайд не перелистывается Мне важно только, чтобы при нажатии на кнопку в окне на форме показывался следующий слайд презентации. Именно на форме, а не отдельным процессом. Анимация не обязательна. Может, как-то использовать Picture Box?


textual

Код к задаче: «Как показать слайды Power Point - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.286 из 5

Источник