以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何获取 图片 的尺寸（宽度与高度）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146788)
--  作者：绿火柴
--  发布时间：2020/3/2 15:45:00
--  [求助]如何获取 图片 的尺寸（宽度与高度）
如题，可以吗？ 如何实现？

下面是EXCEL VBA 中试出的方法。
Rem 获取图片文件大小比例
Sub SSS()
 PicName = "E:\\OFFICE相关\\VBA\\VBA学习\\VBA代码文件\\00.jpg"
\' ActiveSheet.Pictures.Insert ("E:\\OFFICE相关\\VBA\\VBA学习\\VBA代码文件\\00.jpg")
 arx = GetPicSize(PicName)
 MsgBox " 高度：" & arx(0) & vbCrLf & " 宽度：" & arx(1)
End Sub

Public Function GetPicSize(ByVal PATH As String) As Double()
 Rem 获取图片文件像素大小
 Rem PATH 图片文件路径
 Dim IMG
 Set IMG = CreateObject("WIA.imagefile")
 IMG.LOADFILE PATH
 ReDim BRX(0 To 1) As Double
 BRX(0) = IMG.Height
 BRX(1) = IMG.Width
 GetPicSize = BRX
End Function
--  作者：有点蓝
--  发布时间：2020/3/2 15:57:00
--  
参考：http://www.foxtable.com/webhelp/topics/2714.htm
--  作者：绿火柴
--  发布时间：2020/3/2 16:57:00
--  
自己应该打板子。
帮助都看了一遍了，竟然忽略了。
多谢蓝版。
回头帮助，再过一遍。
--  作者：绿火柴
--  发布时间：2020/3/2 20:55:00
--  
再问：listview 里展示图片，只能统一设置图片的高度与宽度。能否每个图片，都可以自定义宽度与高度呢？？？？
--  作者：有点蓝
--  发布时间：2020/3/2 21:09:00
--  
不能的
--  作者：绿火柴
--  发布时间：2020/3/2 22:22:00
--  
好的，那我 PS 批量把图片改成统一宽高度。
多谢。