I’ve made a few posts in the past regarding image manipulations (resize, rotate, …) but never covered the most basic aspect, which is simply getting general information about an image. Below is a sample which utilizes WIA automation.

Private Type ImgageInfo
    Height                    As Long
    Width                     As Long
    FileExtension             As String
    HorizontalResolution      As Double
    VerticalResolution        As Double
    PixelDepth As Long
End Type
Public Img                    As ImgageInfo


'---------------------------------------------------------------------------------------
' Procedure : WIA_GetImgDimensions
' Author    : Daniel Pineault, CARDA Consultants Inc.
' Website   : http://www.cardaconsultants.com
' Purpose   : Retrieve various properties (dimensions, extension, resolution) of an image
' Copyright : The following is release as Attribution-ShareAlike 4.0 International
'             (CC BY-SA 4.0) - https://creativecommons.org/licenses/by-sa/4.0/
' Req'd Refs: Uses Late Binding, so none required
'
' Input Variables:
' ~~~~~~~~~~~~~~~~
' sFile     : Fully qualified path, filename and extension of the image file to check
'
' Usage:
' ~~~~~~
' Call WIA_GetImgDimensions(C:\Tmp\database.png )
' Debug.Print sFile, "Width: " & Img.Width, "Height: " & Img.Height, "FileExtension: " & _
'                  Img.FileExtension, "HorizontalResolution: " & Img.HorizontalResolution, _
'                  "VerticalResolution: " & Img.VerticalResolution, _
'                  "PixelDepth: " & Img.PixelDepth
'
' Revision History:
' Rev       Date(yyyy/mm/dd)        Description
' **************************************************************************************
' 1         2018-10-23              Initial Release
'---------------------------------------------------------------------------------------
Function WIA_GetImgDimensions(ByVal sFile As String) As Boolean
    'For a complete listing of available WIA ImageFile properties
    '   Ref: https://docs.microsoft.com/en-us/previous-versions/windows/desktop/wiaaut/-wiaaut-imagefile
    On Error GoTo Error_Handler
    Dim oWIA                  As Object

    Set oWIA = CreateObject("WIA.ImageFile")
    oWIA.LoadFile sFile
    Img.Width = oWIA.Width
    Img.Height = oWIA.Height
    Img.FileExtension = oWIA.FileExtension
    Img.HorizontalResolution = oWIA.HorizontalResolution
    Img.VerticalResolution = oWIA.VerticalResolution
    Img.PixelDepth = oWIA.PixelDepth

Error_Handler_Exit:
    On Error Resume Next
    If Not oWIA Is Nothing Then Set oWIA = Nothing
    Exit Function

Error_Handler:
    MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Error Source: WIA_GetImgDimensions" & vbCrLf & _
           "Error Description: " & Err.Description & _
           Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
           , vbOKOnly + vbCritical, "An Error has Occurred!"
    Resume Error_Handler_Exit
End Function



Private Sub Testme()
    Dim sFile                 As String

    sFile = "C:\Tmp\1.png"
    Call WIA_GetImgDimensions(sFile)
    Debug.Print sFile, "Width: " & Img.Width, "Height: " & Img.Height, _
                "FileExtension: " & Img.FileExtension, _
                "HorizontalResolution: " & Img.HorizontalResolution, _
                "VerticalResolution: " & Img.VerticalResolution, _
                "PixelDepth: " & Img.PixelDepth

    sFile = "C:\Tmp\2.jpg"
    Call WIA_GetImgDimensions(sFile)
    Debug.Print sFile, "Width: " & Img.Width, "Height: " & Img.Height, _
                "FileExtension: " & Img.FileExtension, _
                "HorizontalResolution: " & Img.HorizontalResolution, _
                "VerticalResolution: " & Img.VerticalResolution, _
                "PixelDepth: " & Img.PixelDepth

    sFile = "C:\Tmp\3.gif"
    Call WIA_GetImgDimensions(sFile)
    Debug.Print sFile, "Width: " & Img.Width, "Height: " & Img.Height, _
                "FileExtension: " & Img.FileExtension, _
                "HorizontalResolution: " & Img.HorizontalResolution, _
                "VerticalResolution: " & Img.VerticalResolution, _
                "PixelDepth: " & Img.PixelDepth
End Sub

Similarly, we can get the dimension using the Shell object

Private Type ImgageInfo
    Height                    As Long
    Width                     As Long
    FileExtension             As String
    HorizontalResolution      As Double
    VerticalResolution        As Double
    PixelDepth                As Long
End Type
Public Img                    As ImgageInfo


'---------------------------------------------------------------------------------------
' Procedure : Shell_GetImgDimensions
' Author    : Daniel Pineault, CARDA Consultants Inc.
' Website   : http://www.cardaconsultants.com
' Purpose   : Retrieve the dimensions, extension of an image
' Copyright : The following is release as Attribution-ShareAlike 4.0 International
'             (CC BY-SA 4.0) - https://creativecommons.org/licenses/by-sa/4.0/
' Req'd Refs: Uses Late Binding, so none required
'
' Input Variables:
' ~~~~~~~~~~~~~~~~
' sFile     : Fully qualified path, filename and extension of the image file to check
'
' Usage:
' ~~~~~~
' Call Shell_GetImgDimensions(C:\Tmp\database.png )
' Debug.Print sFile, "Width: " & Img.Width, "Height: " & Img.Height
'
' Revision History:
' Rev       Date(yyyy/mm/dd)        Description
' **************************************************************************************
' 1         2018-10-23              Initial Release
' 2         2018-11-04              Made Option Explicit Compliant
'---------------------------------------------------------------------------------------
Function Shell_GetImgDimensions(ByVal sFile As String) As Boolean
    On Error GoTo Error_Handler
    Dim oShell                As Object    'Shell
    Dim oFolder               As Object    'Folder2
    Dim oFile                 As Object    'FolderItem
    Dim sPath                 As String
    Dim sFilename             As String
    Dim sDims                 As String

    sPath = Left(sFile, InStrRev(sFile, "\") - 1)
    sFilename = Right(sFile, Len(sFile) - InStrRev(sFile, "\"))

    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.NameSpace(CStr(sPath))
    Set oFile = oFolder.ParseName(sFilename)

    sDims = oFile.ExtendedProperty("Dimensions")    '-> ?470 x 668?
    sDims = Right(sDims, Len(sDims) - 1)
    sDims = Left(sDims, Len(sDims) - 1)
    Img.Width = CLng(Split(sDims, "x")(0))
    Img.Height = CLng(Split(sDims, "x")(1))

Error_Handler_Exit:
    On Error Resume Next
    If Not oFile Is Nothing Then Set oFile = Nothing
    If Not oFolder Is Nothing Then Set oFolder = Nothing
    If Not oShell Is Nothing Then Set oShell = Nothing
    Exit Function

Error_Handler:
    MsgBox "The following error has occurred" & vbCrLf & vbCrLf & _
           "Error Number: " & Err.Number & vbCrLf & _
           "Error Source: Shell_GetImgDimensions" & vbCrLf & _
           "Error Description: " & Err.Description & _
           Switch(Erl = 0, "", Erl <> 0, vbCrLf & "Line No: " & Erl) _
           , vbOKOnly + vbCritical, "An Error has Occurred!"
    Resume Error_Handler_Exit
End Function



Private Sub Testme()
    Dim sFile                 As String

    sFile = "C:\Tmp\1.png"
    Call Shell_GetImgDimensions(sFile)
    Debug.Print sFile, "Width: " & Img.Width, "Height: " & Img.Height
    
    sFile = "C:\Tmp\2.jpg"
    Call Shell_GetImgDimensions(sFile)
    Debug.Print sFile, "Width: " & Img.Width, "Height: " & Img.Height
    
    sFile = "C:\Tmp\3.gif"
    Call Shell_GetImgDimensions(sFile)
    Debug.Print sFile, "Width: " & Img.Width, "Height: " & Img.Height
End Sub