VBA读取图片属性信息(1/4)

13 篇文章 1 订阅
9 篇文章 1 订阅

在Windows文件管理器中,可以查看图片的属性信息,如下图所示。
在这里插入图片描述
VBA无法直接读取图片属性信息,借助WIA对象就能轻松读取这些信息。示例代码如下。

Sub GetImgSize()
    Dim objWIA As Object
    Dim Image As String
    Image = "c:\temp\1.jpg"
    On Error Resume Next
    Set objWIA = CreateObject("WIA.ImageFile")
    If objWIA Is Nothing Then Exit Sub
    On Error GoTo 0
    objWIA.LoadFile Image
    Debug.Print "宽度:" & objWIA.Width & "像素"
    Debug.Print "高度:" & objWIA.Height & "像素"
    Debug.Print "水平分辨率:" & objWIA.HorizontalResolution & " dpi"
    Debug.Print "垂直分辨率:" & objWIA.VerticalResolution & " dpi"
    Debug.Print "位深度:" & objWIA.PixelDepth
    Set objWIA = Nothing
End Sub

【立即窗口】中输出如下图所示。
在这里插入图片描述
【代码解析】
第4行代码指定图片全路径。
第5行代码忽略运行时错误,继续执行。
第6行代码创建WIA对象.
如果创建失败,第7行代码终止代码过程的执行。
第8行代码恢复错误处理机制。
第9行代码加载图片文件。
第10~14行代码输出图片信息。
第15行代码释放对象变量占用的系统资源。


相关文章链接:

VBA读取图片属性信息(1/4)

VBA读取图片属性信息(2/4)

VBA读取图片属性信息(3/4)

VBA读取图片属性信息(4/4)

  • 3
    点赞
  • 18
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值