Hallo Laika und Matthias,
sorry aber teilweise schreibst du sehr grossen Mist 
Richtig ist das man unter VB das Bild in eine PictureBox laden kann und dann die grösse abfragen kann und ggfls. umrechnen.
Aber was ist wenn man keine freie PictureBox zur Verfügung hat, wo man dies nutzen kann? Extra deswegen eine einbauen. Da schiesst du mit Kanonen auf Spatzen!
Es reicht vollkommen aus, wenn du ein StdPicture erzeugst und dann die Daten abfragst. Aber auch das ist in meine Augen umstaendlich!
Du kannst mit leichtigkeit den Header auslesen und nicht wie von dir beschrieben das es sehr aufwaendig sei und schwer :s
Ein kleines Demo was dies tut. Sollte unter VBA und VB laufen
Public Function GetPictureSize(sFile As String, x As Long, y As Long) As Boolean
Dim strDummy As String
Dim ff As Integer
Dim c As Integer
Dim S As String
Dim L As Long
Dim JPGWidth As Long
Dim JPGHeight As Long
ff = FreeFile()
Open sFile For Binary Access Read As #ff
' Test auf JPEG-Datei
If Input(2, #ff) (Chr$(&HFF) & Chr$(&HD8)) Then
Close #ff
Exit Function
End If
strDummy = Input(2, #ff)
Do
L = Asc(Input(1, #ff))
L = L \* 256 + Asc(Input(1, #ff))
S = Input(L - 2, #ff)
If c = &HC0 Or c = &HC2 Then
JPGWidth = Asc(Mid$(S, 4, 1))
x = JPGWidth \* 256 + Asc(Mid$(S, 5, 1))
JPGHeight = Asc(Mid$(S, 2, 1))
y = JPGHeight \* 256 + Asc(Mid$(S, 3, 1))
End If
If Input(1, #ff) Chr$(255) Then
Exit Do
End If
c = Asc(Input(1, #ff))
Loop While c &HD9
Close #ff
GetPictureSize = True
End Function
Ein Aufruf, alla
Private Sub Command1\_Click()
Dim x As Long
Dim y As Long
If GetPictureSize("f:\a.jpg", x, y) Then
MsgBox "Breite: " & x & vbNewLine & "Höhe: " & y
Else
MsgBox "Fehler beim auslesen der JPEG Information!", vbCritical
End If
End Sub
liefert die gewuenschten Daten. Und wie man sieht sind es nur ein paar Zeilen Code. Sicher sollte man noch prüfen ob die Datei existiert etc.
Aber ist wie gesagt nur nen Demo 
MfG Alex
