VBA в EXCEL и PowerPoint

[gena]

Как из EXCEL открыть программно (VBA) конкретный слайд из презентации? (Вроде того, как это делается в программе "Своя игра").

[Naeel Maqsudov]

гиперссылки не помогают? (без VBA)

[gena]

А как создать гиперссылку на отдельный слайд?

[Diment]

Dim sl As Slides
With CreateObject("PowerPoint.Application")
.Visible = True
.DisplayAlerts = 2 'ppAlertsAll
With .Presentations.Open(Filename:="С:\Презентации\Презентация.ppt")
Set sl = .Slides
sl(3).Select 'нужно подставить переменную с номером слайда
End With
End With

[Diment]

да... забыл. нужно еще нужно еще в VBA для Excel подключить библиотеки Powerpoint
Tools/Referenses/ Microsoft PowerPoint xx.x Object Library