asked on 7/25/2016

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?

Microsoft Excel VB Script

Last Comment

Rgonzo1971

7/25/2016

Rgonzo1971

7/25/2016

HI,

You can copy the pdf already inserted in excel and paste it as image and delete the pdf of the excel

Regards

maverick0728

7/25/2016

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".

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