Bildgröße auslesen
21.11.2016 18:26:05
Oisse
ich möchte gerne die Größe eines Bildes, also Breite und Höhe, ermitteln, das sich in einem Ordner befindet.
Hintergrund: Wenn es hochkant ist, dann ... Wenn es quer ist, dann
Bisher habe ich:
Sub Test()
Dim Pfad As String
Dim Pic As Picture
Pfad = ThisWorkbook.Path & "\Bilder\116983_10"
Set Pic = ThisWorkbook.Worksheets("Tabelle2").Pictures.Insert(Pfad)
MsgBox "Bildbreite: " & Pic.Picture.Width & Chr(10) _
& "Bildhöhe: " & Pic.Picture.Height
End Sub
Der Code an sich funktioniert aber schon nicht, weil er diese Insert Methode nicht findet und eigentlich will ich gar nicht einfügen sondern nur die Daten haben.
Wie bitte mache ich das?
Gruß
Oisse