Презентация PowerPoint на форме в VB

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

Подскажите пожалуйста, может кто-то уже пытался решить эту проблему. Есть необходимость на форме разместить презентацию PowerPoint с последующим автоматическим показом слайдов. Помогите решить проблемку.

Решение задачи: «Презентация PowerPoint на форме в VB»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Dim objPPT As PowerPoint.Presentation
    Dim objSlide As PowerPoint.Slide
    
    Set objPPT = OLE1.object
    Set objSlide = objPPT.Slides(2)
 
    objPPT.Slides(2).MoveTo 1
End Sub
Private Sub Form_Load()
    OLE1.SizeMode = 1 'stretch
End Sub
                        

Оцени полезность:

15 голосов , оценка 4.067 из 5

Похожие ответы