Access - Alto y ancho de imagen sin abrirla en Access

Sub ObtenerTamañoImagen()

    Dim rutaImagen As String

    Dim wicImage As Object

    Dim ancho As Long, alto As Long

    rutaImagen = "C:\ruta\de\la\imagen.jpg" ' Ruta de la imagen

    Set wicImage = CreateObject("WICBitmap.WICBitmap") ' Crear objeto WIC

    wicImage.InitializeFromFile rutaImagen ' Inicializar el objeto con la imagen

    ancho = wicImage.PixelWidth ' Obtener el ancho de la imagen

    alto = wicImage.PixelHeight ' Obtener el alto de la imagen

    MsgBox "Ancho: " & ancho & " pixels, Alto: " & alto & " pixels"

    Set wicImage = Nothing ' Liberar objeto WIC

End Sub