'  获取磁盘上一副图片的高度和宽度的代码：

    Dim obj1 As IPictureDisp
    Set obj1 = LoadPicture("e:\My Documents\My Pictures\Morgana.jpg")
    With obj1
        Debug.Print "高度:" & .Height / 26.46
        Debug.Print "宽度:" & .Width / 26.46
    End With
   
' 这个方法不用API或ADO，LoadPicture 不是access本身提供的方法，而是stdole对象的成员，
' 来自 OLE Automation 引用，这个引用是ACC的默认引用，因此使用这个方法不会有什么问题。
' 关于stdole对象，可在对象浏览器中查看，大家可以研究挖掘一下，看还有什么好用的方法。
' 比如还有一个 SavePicture ，结合 LoadPicture 可复制一副图片。