CodeItBetter Programming Another VB Programming Blog

'Graphics - How to get Dimensions of an image

Option Explicit
 
'Add a Image Box to your form and set the Stretch property to False and Visible property to False.

Private Sub Form_Load()
    Image1.Picture = LoadPicture("C:\Temp\Test.gif")
    'Dimensions in Pixels
    Call MsgBox("Image Height (in Pixels): " & Image1.Height & vbCrLf & _
                "Image width  (in Pixels): " & Image1.Width, vbInformation, "Image Dimensions in Pixel")
    'Dimensions in Twips
    Call MsgBox("Image Height (in Twips): " & Image1.Height / Screen.TwipsPerPixelY & vbCrLf & _
                "Image width  (in Twips): " & Image1.Width / Screen.TwipsPerPixelX, vbInformation, "Image Dimensions in Twips")
End Sub