import pdf file

[seblatueuse]

hi all,
I have following code to import a pdf as a picture in my excel sheet. All is working but I would like when I import the pdf that it open me directly the same folder where my excel file is saved (ThisWorkbook.path). Even if I move the later the excel file. Also I want to open any pdf file in this folder, that why I use How can I do it?

Sub pdf_aufmachen()

' pdf_aufmachen Makro
'

ActiveSheet.OLEObjects.Add(ClassType:="AcroExch.Document.7", Link:=False, _
DisplayAsIcon:=False).Select
End Sub

[Kenneth Hobson]

Welcome to the forum! I am not sure if you want a path from the pdf file or the workbook. If the former, then one can parse the SourceName if the file is linked. e.g.

Please Login or Register  to view this content.

Otherwise, browsing to a folder and picking a file in a dialog can just navigate to ThisWorkbook.path first.