VBA读取图⽚属性信息(24)
对象图片高清
上⼀篇博客中介绍了使⽤WIA对象读取图⽚信息,本⽂将解释另⼀种⽅法读取图⽚尺⼨信息。
⽰例代码如下。
Function Himetric2Pixel(Hime)
Dim objWSH As Object
Dim lngDPI As Long
Set objWSH = CreateObject("Wscript.Shell")
lngDPI = objWSH.RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI")    Himetric2Pixel =Round(Hime * lngDPI /2540)
Set objWSH =Nothing
End Function
Sub Demo()
Dim objPic As Object
Set objPic = LoadPicture("c:\temp\1.jpg")
Debug.Print "宽度:" & Himetric2Pixel(objPic.Width) & "像素"
Debug.Print "⾼度:" & Himetric2Pixel(objPic.Height) & "像素"
Set objPic =Nothing
End Sub
【⽴即窗⼝】中输出如下图所⽰。
【代码解析】
第1~7⾏代码为函数过程Himetric2Pixel,⽤于实现Himetric和Pixel(像素)直接的转换。
第4⾏代码创建Wscript.Shell对象。
第5⾏代码读取注册表中的AppliedDPI键值。
第6⾏代码进⾏转换。
第7⾏代码释放对象变量占⽤的系统资源。
第9~15⾏代码为演⽰过程。
第11⾏代码加载图⽚⽂件。
第12~13⾏代码输出图⽚尺⼨信息。
第14⾏代码释放对象变量占⽤的系统资源。
相关⽂章链接:

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。