Hi,
You can get the picture height & width like this.

Sub Macro2()
Dim MyPic As IPictureDisp
Set MyPic = LoadPicture("C:\Documents and Settings\jaf\My Documents\My
Pictures\020108-M-8634P-502.jpg")
Debug.Print MyPic.Width, MyPic.Height
End Sub

Or you can assign a height & width like this.

LoadPicture([filename], [widthDesired As Long], [heightDesired As Long],
[flags As LoadPictureConstants = Default]) As IPictureDisp


--

John

johnf202 at hotmail dot com


"dchow" wrote in message
...
Is there a way to determine the size of a JPG file in pixels? I need
to put product pictures on a spreadsheet programmatically. I would
like their size to be as close as possible. So I have to know their
size to determine how much to scale.