Access - Tamaño de imagen

Wenas, tengo un problemilla y es que necesito saber el tamaño de una imagen.jpg/bmp alojada en una carpeta en c:/. Necesito filtrar el tamaño para que access me avise de sus dimensiones para poder controlar tamaños en escala. Agradeceria que me hecharais una manita.....GRACIAS!!!!

Félix

En un Formulario pones tres cuadros de texto de Nombres: Ancho, Alto y Bites, más un botón de comando de nombre "Informacion" y este código en el Editor de VBA del Formulario:

'EN LA SECCION DE DECLARACIONES:
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Dim Bits() As Byte, Informe As BITMAP
Dim Imagen As IPictureDisp
Dim Fichero As String

'EN EL PROCEDIMIENTO DE EVENTO AL HACER CLIK DEL BOTON:
Private Sub Informacion_Click()
Fichero = CurrentProject.Path & "\Rotulo.bmp" '<---CAMBIA AQUÍ LA RUTA
Set Imagen = LoadPicture(Fichero)
GetObject Imagen, Len(Informe), Informe
Me.Ancho = CLng(Informe.bmWidth)
Me.Alto = CLng(Informe.bmHeight)
Me.Bites = CInt(Informe.bmBitsPixel)
End Sub

El campo Bites muestra los Bits por Pixel. Funciona tambien con JPG's, prueba con otros tipos a ver si funcionan.

Saludos
Enrique

gracias enrrique me salvas la vida

Estimado:
Por algún motivo no me muestra el tamaño, sino un valor 0 (cero). Me tomé la libertad de adaptar el código y quedó así:

vStr es la ruta a la imagen. Las imágenes son mayormente JPG y puede haber PNG. Y esta variable toma su valor desde otro formulario. A la vez, esa variable se usa para mostrar la imagen en un campo de imagen vinculada.
¿A qué se puede deber que no muestre la información?

Uso Access 2016 x64.