如何得知图片的维度?

[kendow]

请问各位怎么能得知图片的维度是多大?例如1256*1120..等等

[碧海情天-赵亮]

取文件头信息。
至于具体的信息格式，搜索参阅“XXX图片文件头格式”，XXX为你想要的图片类型，BMP，JPG

[lyserver]

    Dim Pic As StdPicture
    
    Set Pic = LoadPicture("图片文件名称")
    Debug.Print CInt(Me.ScaleX(Pic.Width, vbHimetric, vbPixels)) '宽度
    Debug.Print CInt(Me.ScaleY(Pic.Height, vbHimetric, vbPixels)) '高度
    Set Pic = Nothing