ImageWidth Property [Access 2003 VBA Language Reference]
You can use the ImageWidth property in Visual Basic to determine the width in twips of a picture in an image control. Read/write Long.
expression Required. An expression that returns one of the objects in the Applies To list.
The ImageWidth property is an Integer value equal to the width of a picture in twips.
This property is read-only in all views.
You can use the ImageWidth property together with the ImageHeight property to determine the size of a picture in an image control. You could then use this information to change the image control's Height and Width properties to match the size of the picture displayed.
The following example prompts the user to enter the name of a bitmap and then assigns that bitmap to the Picture property of the Image1 image control. The ImageHeight and ImageWidth properties are used to resize the image control to fit the size of the bitmap.
Sub GetNewPicture(frm As Form) Dim ctlImage As Control Set ctlImage = frm!Image1 ctlImage.Picture = InputBox("Enter path and " _ & "file name for new bitmap") ctlImage.Height = ctlImage.ImageHeight ctlImage.Width = ctlImage.ImageWidth End Sub