在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行代码释放对象变量占用的系统资源。
相关文章链接: