Using FileDialog to Open a PPT through Excel VBA code

[sachs_v5]

Hi guys,

Have been looking for answers in other threads but could not find the exact case.

Im using userform button to call VBA code to Open PPT presentation with FileDialogOpen but im struggling so need help.

Code for now is:

Dim fd as FileDialog
Dim fullpath as string
Dim fileselected as Variant

Set fd = application.filedialog(msoFileDialogOpen)

With fd

.allowmultiselect = false
.title = "select file"
.show

Fullpath = .selecteditems.item(1)

End with

 

[DanteAmor]

Try this

Sub open_ppt()
  With Application.FileDialog(msoFileDialogFilePicker)
    .Title = "Select ppt file"
    .Filters.Clear
    .Filters.Add "PPT file", "*.ppt*"
    .AllowMultiSelect = False
    .InitialFileName = ThisWorkbook.Path & "\"
    If .Show Then
      ActiveWorkbook.FollowHyperlink .SelectedItems.Item(1)
    End If
  End With
End Sub