Åben specifik ppt. slide fra Excel

Ja - eksempel - vis slide 3:

Private Sub CommandButton1_Click()
Dim objPPT As Object
Dim sti As String
   
    sti = ActiveWorkbook.Path & "\"
   
    Set objPPT = CreateObject("PowerPoint.Application")
    objPPT.Visible = True
    objPPT.Presentations.Open sti & "pp.pptx"
   
    With objPPT.activepresentation.SlideShowSettings.Run
    End With
       
    With objPPT.SlideShowWindows(1).View
        .GotoSlide 3
    End With
   
End Sub