Código:
Pero como lo hago para que coja el ancho de una imagen de una url, empezando por http:// , que no esté en el servidor?? 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