Need help on Insert PDF file VBA function

[spycein]

Dear Members,

I am using the following code to display photo from a folder in my excel sheet.

Sub DisplayMainPicture()
With Sheet1
On Error Resume Next
.Shapes("ReceiptPic").Delete
On Error GoTo 0
If .Range("I12").Value = Empty Then Exit Sub
PicPath = .Range("I12").Value  'Picture Path
If Dir(.Range("I12").Value, vbDirectory) = "" Then Exit Sub  'Exit on missing or incorrect file
On Error GoTo NoPic
With .Pictures.Insert(PicPath)
            With .ShapeRange
                .LockAspectRatio = msoTrue
                .Height = 350
                .Name = "ReceiptPic"
            End With
End With
    With .Shapes("ReceiptPic")
        .Left = Sheet1.Range("K4").Left
        .Top = Sheet1.Range("K4").Top
    End With
NoPic:
End With
End Sub

If I put a pdf file in the folder and try to fetch the image then I get " The picture cannot be displayed" error message.
I am looking for a solution which would show both images as well as PDF files.
Thank you so much.
Best Regards,

 

[Micron]

Maybe you've outgrown Excel for what you're trying to do. Access has bound and unbound object controls which will show documents. Possibly will show pictures as well, but there is an image control for that in Access. I see no object control in the userform controls toolbox so I think you're not going to solve this with Excel.

 

[spycein]

Maybe you've outgrown Excel for what you're trying to do. Access has bound and unbound object controls which will show documents. Possibly will show pictures as well, but there is an image control for that in Access. I see no object control in the userform controls toolbox so I think you're not going to solve this with Excel.

Dear @Micron, Thank you so much for your feedback on this.
Best Regards,

 

[Micron]

You're welcome. Good luck in your quest.