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

2022年10月15日 173次阅读来源: taller_2000

条条大路通罗马，本文将介绍如何使用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

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