VBA Insert picture is not working with .PNG file

[Manith]

Dear All,

I have the code below, however it is working only with .jpg format. Could you pls help me as I also want it to work with .png format.
Thank you!

--------------------------------

Public Function showpicture(style As String, Optional path As String) As String

If path = "" Then
path = "E:\CKUA\PICTURES"
End If
path = path & "\"


Dim AC As Range

Static P As Shape

On Error GoTo Done


Application.Volatile

Set AC = Application.Caller

PicFile = path & style & ".jpg"

If Not (PicExists(P)) Then

sheetname = Application.Caller.Parent.Name
workbookname = Application.Caller.Parent.Parent.Name

 

[mrshl9898]

Do you have the rest of the code?

 

[yky]

PicFile = path & style & ".jpg"  '<- this line only looks for files with a .jpg extension, which means it won't work for .png files.

If Not (PicExists(P)) Then

See if this works for you. Frankly, I don' t know how your code works. It's incomplete and doesn't make sense to me. However, if it works for you, then, the following modification might work.

PicFile = path & style & ".jpg"

If Not (PicExists(P)) Then         '<- Insert this and the following two lines

PicFile = path & style & ".png"

End If

If Not (PicExists(P)) Then