取JPG图片的尺寸
gif,bmp,png的我都按照指定位置把尺寸信息读取出来了

可JPG没成功,求解

[解决办法]
Set a = LoadPicture("c:\1.jpg")
w = clng(a.width * 1440 / 2540 / Screen.TwipsPerPixelX)
h = clng(a.height * 1440 / 2540 / Screen.TwipsPerPixelY)
MsgBox w ,,h