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

最新推荐文章于 2024-06-27 00:42:32 发布

taller_2000

最新推荐文章于 2024-06-27 00:42:32 发布

阅读量1.8k

点赞数 1

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

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

版权

VBA 同时被 3 个专栏收录

280 篇文章 86 订阅

订阅专栏

图片

13 篇文章 1 订阅

订阅专栏

对象

9 篇文章 1 订阅

订阅专栏

条条大路通罗马，本文将介绍如何使用Shell对象读取图片尺寸信息。
示例代码如下。

Sub Demo()
    Dim objShell As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim strRes As String
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace("c:\temp")
    Set objFile = objFolder.ParseName("1.jpg")
    strRes = objFile.ExtendedProperty("Dimensions")
    Debug.Print "分辨率：" & Mid(strRes, 2, Len(strRes) - 2)
    Set objFile = Nothing
    Set objFolder = Nothing
    Set objShell = Nothing
End Sub

运行结果如下图所示。
在这里插入图片描述
【代码解析】
第2~5行代码声明变量。
第6行代码创建Shell对象。
第7行代码指定文件目录。
第8行代码指定图片文件名称。
第9行代码获取文件的扩展属性Dimensions，注意返回值包含前导和尾随问号，其ASCII值为63。
在这里插入图片描述
第10行代码使用字符函数获取分辨率信息。