grp4

Get Image Dimensions

Get Image Dimensions

Get the dimensions of any image file that can be loaded into an Image box.

Preparations

Add 1 Image Box to your form.
Set the Image Box Stretch property to false and the Visible property to
false.

Form Code

Private Sub Form_Load()
Image1.Picture = LoadPicture("c:\mypic.gif")
'You will get the image dimensions in pixels. to get them in Twips scale,
remove
' the "/ Screen.TwipsPerPixelY" and "/ Screen.TwipsPerPixelX" below.
MsgBox "Image Height: " & Image1.Height / Screen.TwipsPerPixelY & _
" Image width: " & Image1.Width / Screen.TwipsPerPixelX
End Sub