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

最新推荐文章于 2023-11-15 15:51:25 发布

taller_2000

最新推荐文章于 2023-11-15 15:51:25 发布

阅读量2.4k

点赞数 3

分类专栏：图片对象 VBA 文章标签：分辨率图片 API 图片尺寸像素

本文链接：https://blog.csdn.net/taller_2000/article/details/117345694

版权

VBA 同时被 3 个专栏收录

284 篇文章 87 订阅

订阅专栏

图片

13 篇文章 1 订阅

订阅专栏

对象

9 篇文章 1 订阅

订阅专栏

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

摘要由CSDN通过智能技术生成

对于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