Estas son las que yo uso, funcionan perfecto.
Código:
Private Function GetImageWidth(byVal strPath)
dim myImg, fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(strPath) then Exit Function
set myImg = loadpicture(strPath)
GetImageWidth = round(myImg.width / 26.4583)
set myImg = nothing
End Function
Private Function GetImageHeight(byVal strPath)
dim myImg, fs
Set fs= CreateObject("Scripting.FileSystemObject")
if not fs.fileExists(strPath) then Exit Function
set myImg = loadpicture(strPath)
GetImageHeight = round(myImg.height / 26.4583)
set myImg = nothing
End Function
Que alguien las meta en las Faq que no he visto ninguna....