Código:
Que alguien las meta en las Faq que no he visto ninguna.... 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