How can I understand the resolution value of a jpg image in an Excel page?

[Tevfik_Kursun]

Hello All,
I am wondering to get the vertical and horizontal resolution value of a jpg image in an Excel page?
(I could able to find a makro just to get the dimentions of a jpg image)
Thank you

 

[Tevfik_Kursun]

Hello All,
I've solved my problem. Here it is.

Sub Test()
    Dim FSO, strFolder, strFile, wia As Object
    Dim i As Long
    Dim P As StdPicture
    Dim Path As String
    
    Range("G1:H2").ClearContents
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set strFolder = FSO.GetFolder([B1].Text)
    
    On Error Resume Next
        Set wia = CreateObject("WIA.ImageFile")

        wia.LoadFile [C1].Value
        Range("G2") = wia.Width
        Range("H2") = wia.Height

        Path = [C1].Text
        Set P = LoadPicture(Path)
        
        [G1] = P.Width
            [G1] = [G2] * 1000 * 2.54 / [G1]: [G1] = Format([G1], "#,##0")
        [H1] = P.Height
            [H1] = [H2] * 1000 * 2.54 / [H1]: [H1] = Format([H1], "#,##0")
End Sub

Thank you