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