VBA读取图片属性信息（4/4）

最新推荐文章于 2025-03-26 12:00:00 发布

原创最新推荐文章于 2025-03-26 12:00:00 发布 · 3k 阅读

11 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#分辨率 #图片 #API #图片尺寸 #像素

VBA 同时被 3 个专栏收录

343 篇文章

订阅专栏

图片

18 篇文章

订阅专栏

对象

11 篇文章

订阅专栏

该博客介绍了如何通过VBA代码调用API函数GetObjectAPI来读取BMP、JPG、GIF图片的分辨率信息。示例代码展示了加载图片，调用API获取位图对象，并在【立即窗口】中输出图片的宽度和高度。通过这个方法，可以在VBA环境中获取图片的基本属性。

对于BMP、JPG、GIF图片可以借助API读取其分辨率信息，示例图片的分辨率为141x119，如下图所示。
在这里插入图片描述
示例代码如下。

Private Declare Function GetObjectAPI Lib "gdi32" _
            Alias "GetObjectA" ( _
            ByVal hObject As Long, _
            ByVal nCount As Long, _
            lpObject As Any) As Long
Private Type BITMAP
    udtBitMapType   As Long
    udtBitMapWidth   As Long
    udtBitMapHeight   As Long
    udtBitMapWidthBytes   As Long
    udtBitMapPlanes   As Integer
    udtBitMapBitsPixel   As Integer
    udtBitMapBits   As Long
End Type
Sub GetBitMapDim()
    Dim udtBITMAP As BITMAP
    Dim objPicture As IPictureDisp
    Set objPicture = LoadPicture("C:\Temp\1.bmp")
    Call GetObjectAPI(objPicture, Len(udtBITMAP), udtBITMAP)
    With udtBITMAP
        Debug.Print "宽度：" & .udtBitMapWidth & "像素"
        Debug.Print "高度：" & .udtBitMapHeight & "像素"
	Set objPicture = Nothing
End Sub