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

最新推荐文章于 2022-07-28 14:09:10 发布

taller_2000

最新推荐文章于 2022-07-28 14:09:10 发布

阅读量2.3k

点赞数 3

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

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

版权

VBA 同时被 3 个专栏收录

276 篇文章 85 订阅

订阅专栏

图片

13 篇文章 1 订阅

订阅专栏

对象

9 篇文章 1 订阅

订阅专栏

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