maverick0728
asked on
Convert 1page PDF to JPG and then insert to Excel
I have 1 page PDF files. I need to convert them to a JPG or PNG file and then insert the image into Excel. The PDF files are drawings and we want to display them in the Excel file. After the excel file closes, I can delete the JPG or PNG file. I haven't been able to get the PDF file to display as an image in Excel, so I'm thinking I need to convert the PDF to a JPG or PNG in order for them to show as an image. I don't want to use Adobe professional to convert the PDF files.
Unless there is a way to display the 1 page PDF as an image?
Unless there is a way to display the 1 page PDF as an image?
ASKER
Copy and paste of the PDF as a image doesn't work.
I have this code to copy in a PDF, but I receive "This image cannot currently be displayed".
I have this code to copy in a PDF, but I receive "This image cannot currently be displayed".
Sub TestInsertPictureInRange()
InsertPictureInRange "C:\Drawings\test.pdf", _
Range("A79:J87")
End Sub
Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range)
' inserts a picture and resizes it to fit the TargetCells range
Dim p As Object, t As Double, l As Double, w As Double, h As Double
If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
If Dir(PictureFileName) = "" Then Exit Sub
' import picture
Set p = ActiveSheet.Pictures.Insert(PictureFileName)
' determine positions
With TargetCells
t = .Top
l = .Left
w = .Offset(0, .Columns.Count).Left - .Left
h = .Offset(.Rows.Count, 0).Top - .Top
End With
' position picture
With p
.Top = t
.Left = l
.Width = w
.Height = h
End With
Set p = Nothing
End Sub
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
and what is "c:\Drawings\test.pdf"
shouldn't be an icon since
DisplayAsIcon:=False
shouldn't be an icon since
DisplayAsIcon:=False
if you run it step by step what is the result at line 14
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Could be. We are using PDF-XChange. Can it work with PDF-XChange?
No experience with it but maybe by changing temporarily the default program to acrobat reader it could work
You can copy the pdf already inserted in excel and paste it as image and delete the pdf of the excel
Regards