Откройте ppt из Sharepoint по нажатию командной кнопки - VBA

Question

Я хотел открыть ppt форму SharePoint, используя VBA, используя командную кнопку

, если кто-нибудь знает, пожалуйста, помогите мне.

Спасибо ...

У меня естьпохожий код ... ниже .. но он дает мне ошибку

Dim PPT As PowerPoint.Application
Dim fileName As Variant
Dim WS1 As Worksheet
Dim rng As Range
Set WS1 = ThisWorkbook.Worksheets("Sheet4")
Set rng = WS1.Range("AA4")


Set PPT = New PowerPoint.Application
fileName = rng

PPT.Visible = True

'PPT.Presentations.Open fileName:="F:\Reports\" & Business_Plan.Value & ".ppt"
PPT.Presentations.Open fileName("AA4")

Answer 1

Предполагая, что значением «A2» на листе 1 является полный путь + имя файла (F: \ Reports \ FileName.ppt)

Sub openPowerP()
    Dim PPT As PowerPoint.Application
    Dim fileName As String
    Dim WS1 As Worksheet
    Set WS1 = ThisWorkbook.Sheets("Sheet1")
    fileName = WS1.Range("A2").Value
    Set PPT = New PowerPoint.Application
    PPT.Presentations.Open fileName
End Sub

Ссылка на powerpoint необходима, конечно.