Excel2010 - Bilddarstellung in Userform - Hilfe zur Ausrichtung

[OsCor]

Liebe Helfer,

in einer Tabelle befinden sich Kundendaten und Auftragseinzelheiten.
In einer Userform sollen diese angezeigt werden, wobei das Produkt bei jedem Auftrag als jpg in einem Image dargestellt wird (die Quelle dieses Bildes ist als Pfadangabe ebenfalls in der Tabelle enthalten).
Die Bilder sind entweder querformatig oder hochformatig. Bisher habe ich das Image einfach quadratisch formatiert, um beide Bildformate ohne Verzerrung darstellen zu können. Lieber wäre es mir aber, wenn ich aus der jpg-Datei die Maße des Bildes auslesen und dann den Platzhalter entsprechend dimensionieren könnte - die Fotos könnten dann größer dargestellt werden.
Es gibt ja Tools, um EXIF-Eigenschaften auslesen zu können, aber dann müsste ich diese Information womöglich händisch in die Tabelle eintragen. Vielleicht gibt es da noch andere Möglichkeiten.

Kann mir da jemand behilflich sein?

Gruß
Oswald

[Storax]

Mit der Funktion kannst Du die Dimensionen auslesen

Code:

Private Function getFileDimensions(ByVal filePath As String, ByVal fileName As String) As String

    With New Shell32.Shell
        With .Namespace(filePath).ParseName(fileName)
            getFileDimensions = .ExtendedProperty("Dimensions")
        End With
    End With

End Function

Quelle: Stackoverflow

[OsCor]

Hallo Storax,

beim Ausprobieren der Funktion wird mir das New Shell32.Shell blau hinterlegt und folgende Fehlermeldung angezeigt:

Fehler beim Kompilieren:
Benutzerdefinierter Typ nicht definiert

Was muss ich da vorher noch tun? --> Sorry, jetzt Hinweis auf Stackoverflow gelesen und Verweis eingefügt.

Gruß und vielen Dank! Das ging ja rasend schnell…
Oswald

[Storax]

Z.B. die Quellenangabe lesen

[OsCor]

Hinweis auf meine Korrektur und deine Antwort zeitgleich