VBA 读取图片大小

最新推荐文章于 2024-08-08 10:27:05 发布

Chobitssp

最新推荐文章于 2024-08-08 10:27:05 发布

阅读量5.2k

点赞数

分类专栏： VBA 文章标签： vba integer function

VBA 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

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