AW: LxB aus PDF exif auslesen
19.02.2021 20:40:48
volti
Hallo zusammen,
EXIF kenne ich nur als Fotometadaten in Fotodateien wie JPG usw. als Datenstruktur in den Headerdaten.
Die kann man bei Kenntnis der Struktur mit Mühe auslesen oder über die getdetailsof-Funktionalität auslesen.
it diesem Makrovorschlag erhalte ich allerdings für meine Beispiel-PDF keine Höhen- und Breitenangaben.
Sub Test()
GetFileDetails "C:\Users\voltm\Documents\Adobedokumente", "Auftragsbestätigung.pdf"
End Sub
Function GetFileDetails(sPath As String, sFile As String) As String
'Funktion ermittelt einige Datei-Parameter und bereinigt sie um unnötige Zeichen
Dim oFile As Object, i As Integer
With CreateObject("Shell.Application").Namespace(CVar(sPath))
Set oFile = .ParseName(sFile)
For i = 1 To 100
If .GetDetailsOf(oFile, i) <> "" Then
Debug.Print .GetDetailsOf(oFile.Name, i), .GetDetailsOf(.ParseName(oFile.Name), i)
End If
Next i
End With
End Function
Schaue ich mir eine PDF via Texteditor an, erkenne ich zwar Breiten und Höhenangaben, jedoch keine EXIF-Struktur.
Da muss in der Tat noch etwas mehr Erklärung her.
viele Grüße
Karl-Heinz