Ciao amici,
ho trovato su questo forum, inserita da oregon, una routine per ricavare la risoluzione di una immagine. Funziona benissimo. Ma io vorrei sapere come si arriva a crearla. La routine è:

codice:
Dim XDPI As Integer 
Dim YDPI As Integer 
Open "File.jpg" For Binary As #1 
Seek #1, 16 
Get #1, , XDPI 
Get #1, , YDPI 
Close #1 
Debug.Print "Ris. Orizz. " & XDPI; " dpi" 
Debug.Print "Ris. Vert. " & YDPI; " dpi"
Grazie.