Bildgröße aus den Bildeigenschaften auslesen?
12.02.2007 13:09:54
Kasimir
ich hoffe, Ihr könnt mir weiterhelfen. Ich möchte über ein Dialogfeld ein Bild in ein Tabellenblatt einlesen. Vor dem Einlesen möchte ich aber die Bildbreite und höhe auslesen, weil das Bild nur eine bestimmte Pixelgröße haben darf. Nun habe ich in der Recherche ein Makro von K.Rola gefunden, das die Eigenschaften von Bildern ausließt. Das habe ich wie folgt abgeändert:
Sub Bildeigenschaften_abfragen()
Const STRFOLDER As String = "C:\Eigene Dateien\Bilder"
Dim objShell As Object, objFolder As Object
Dim varName
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(STRFOLDER)
For Each varName In objFolder.Items
If varName = "Bild.JPG" Then
Breite = objFolder.GetDetailsOf(varName, 27)
Höhe = objFolder.GetDetailsOf(varName, 28)
Exit For
End If
Next
MsgBox Breite & " , " & Höhe
End Sub
Das Makro funktioniert auch soweit. Nun möchte ich aber nicht immer von einem fest vorgegebenen Bild die Eigenschaften auslesen, sondern möchte das Bild über ein Dialogfenster auswählen. Das kann man ja mit den Codezeilen
Name_des_Bildes = Application.GetOpenFilename( _
"Bilddateien (*.JPG), *.xls, Alle Dateien (*.*), *.*", 1, _
"Bild auswählen...", MultiSelect:=False)
realisieren. Nur wie bekomme ich denn nun aus der Variablen "Name_des_Bildes" heraus, was der Pfad und was der Bildname ist, damit ich diese Zeilen im obigen Makro anwenden kann. Wie bekomme ich also den Pfad und den Namen aus der Variablen herausgefiltert? Weiß das jemand.
Danke Euch,
Kasimir