VBA code for embedding .pdf

[Vep14ind]

I have a fuel receipt form that must be filled out every day. Then we have to print the document and scan the doc and receipt together to email to HQ. what code is available to have a button or a before right click can I use to open a browse window and select the pdf to be embedded onto the excel sheet in a certain spot?

 

[lrobbo314]

How about this...

Sub InsertPDF()
Dim ws As Worksheet: Set ws = ActiveSheet


ws.Range("A1").Select 'Change to cell you want pdf to be inserted into
ws.OLEObjects.Add ClassType:="AcroExch.Document.11", Link:=False, _
        DisplayAsIcon:=False
End Sub

 

[Vep14ind]

I copy and pasted that code into a vba and i returned Error 1004 runtime error cannot insert object

 

[lrobbo314]

You probably have a different version of excel or adobe. Use the macro recorder and go to insert and select object and insert a pdf.