VBA 读取图片大小

最新推荐文章于 2025-05-28 12:00:00 发布

转载最新推荐文章于 2025-05-28 12:00:00 发布 · 5.4k 阅读

文章标签：

#vba #integer #function

VBA 专栏收录该内容

6 篇文章

订阅专栏

Private Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
    
Private Type BITMAP
    bmType   As Long
    bmWidth   As Long
    bmHeight   As Long
    bmWidthBytes   As Long
    bmPlanes   As Integer
    bmBitsPixel   As Integer
    bmBits   As Long
End Type
Public Sub psize()

    Dim bm As BITMAP
    Dim picPicture As IPictureDisp

    Set picPicture = stdole.LoadPicture("e:\gta.bmp")
   

    Call GetObjectAPI(picPicture, Len(bm), bm)
    MsgBox "大小  :  " & bm.bmWidth & "×" & bm.bmHeight

End Sub