How do I assign an embedded PDF to an AcroPDF Control on a form?

[Wesnet]

Hi everyone - I have a rather obscure problem here that someone may be able to help with although it won't surprise me if no-one knows the answer:

My goal is to have a form that displays (among other controls) a PDF document which has previously been embedded into the spreadsheet.

I can embed the PDF document in vba as follows:

ActiveSheet.OLEObjects.Add Filename:=Range("PDFFile"), DisplayAsIcon:=True

where the Range PDFFile contains a filename such as C:\Myfile.PDF

I also have a form that can display a PDF document nicely using the code:

frmMyForm.pdfMyPDF.src = Range("PDFFile")
frmMyForm.Show

where frmMyForm is a userform and pdfMyPDF is an "Adobe PDF Reader" control. This control appears in the list of additional controls you can add when right clicking the toolbox in Visual Basic.

And so in a nutshell...

I don't want the userform to display the PDF from the external PDF file (I can already do this in any case) - I need it to display the PDF from the embedded PDF file. What code do I need to do this (-ie- to use the embedded PDF as the source for the PDF file on the userform?)

Thank you.

 

[Wesnet]

Ok - I found something useful:

If I embed the PDF on a new sheet (by Insert, Object, Adobe Acrobat Object), then I can at least reference the embedded object as follows:

Private Sub Worksheet_Activate()
    ActiveSheet.Shapes(1).Select
    Selection.Verb Verb:=xlPrimary
End Sub

So it appears the embedded PDF is stored as a shape... The Verb line makes the PDF open in Acrobat reader (not what I want).

Now whenever I click on the new sheet, the PDF will open up. The question is though, how can I make the same PDF appear on a form? Once again, I can do this if I reference a file:

frmMyForm.pdfMyPDF.src = "C:\myfile.pdf"

but I what I need is something like:

frmMyForm.pdfMyPDF.src = <The embedded PDF file in my spreadsheet!>

Any ideas anyone???

 

[Wesnet]

Oops - that didn't appear correctly. It should have read:

frmMyForm.pdfMyPDF.src = [The embedded PDF] 'Instead of a filename

Maybe even the .src is wrong? It works for a filename, but I am not sure what else I could use...