Excel OLEObject insert pdf file

[Ljupce Zagorac]

Hi experts,
Can somebody help with VFP 9 OLEObjects adding pdf file to Excel (2007 and up)?
The following code works with doc files but not with PDF's:
afile=getfile('doc')
oExcel = CREATEOBJECT('Excel.Application')
WITH oExcel
.WorkBooks.Add
.Visible = .t.
with .Activeworkbook.ActiveSheet.OLEObjects
.Add (,afile,.f.,.f.)
endwith
endwith

Thanks in advance.

 

[Olaf Doschke]

Works for me, simply changed the "doc" to "pdf" and that's it. You only get page1 as preview, the OleObjects always stay separate objects anyway.
What are you trying to achive overall?

Bye, Olaf.

Olaf Doschke Software Engineering

https://www.doschke.name

 

[Mike Lewis]

Works for me as well. (Unlike Olaf, I don't even see page 1 as the preview; just the name of the PDF. But double-clicking on the object launches the file in the PDF viewer as expected.)

Ljupce, what happens when you run this code? What exactly are you seeing?

Mike





__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips and downloads

 

[Ljupce Zagorac]

Olaf and Mike, thanks for your input.
Your confirmation made me check my Adobe installation.
It turned out to be corrupt and after reinstalling Adobe everything works well.

 

[Mike Lewis]

Glad to hear it's working, Ljupce. And, by the way, welcome to the forum.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips and downloads

 

[Ljupce Zagorac]

Thanks Mike, please check my next post.