vba 获取图片尺寸
Function Get_ImgPixel(p)
Dim WshShell As Object
Dim dpi
'1 Inch = 2540 Himetric
Const key = "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\AppliedDPI"
Set WshShell = CreateObject("Wscript.Shell")
dpi = WshShell.RegRead(key)
Himetric2Pixel = Round(p * dpi / 2540)
End Function
Sub Test
Dim p As Object
Dim c_Width
Dim c_Height
Set p = LoadPicture(Range("路径"))
c_Width = Get_ImgPixel(p.Width)
c_Height = Get_ImgPixel(p.Height)
End Sub