VBA to create userform that shows source excel files in PPT presentation (64-bit)

I don't know if this is what you want

Dim MyPath As String
Dim FileName As String

Dim objPPT As Object
Dim ppt As Object
Dim sld As Object
Dim shp As Object
Dim PPName As String

Dim sh As Excel.Worksheet
Dim RowNum As Long

Set sh = Sheets("Sheet1")
RowNum = 2

MyPath = ThisWorkbook.Path
PPName = MyPath & "\" & Range("Rpt_Name")

' Open the PowerPoint Presentation
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
objPPT.presentations.Open PPName

Set ppt = objPPT.activepresentation

sh.Cells.ClearContents
RowNum = 2

For Each sld In ppt.slides
    For Each shp In sld.Shapes
        sh.Cells(RowNum, 1) = sld.Name
        sh.Cells(RowNum, 2) = shp.Name
        If shp.Type = msoLinkedOLEObject Then
            sh.Cells(RowNum, 3) = shp.LinkFormat.sourcefullname
        End If
        RowNum = RowNum + 1
    Next
Next

ppt.Close
Set ppt = Nothing
objPPT.Quit
Set objPPT = Nothing