|
Guten Morgen,
ich möchte per VBA-Code in Word gegebene Bilder zuschneiden. Da diese aber in zwei Varianten auftreten können (96x96 DPI / 300x300DPI) muss ich irgendwie herausfinden können, welche Auflösung das Bild hat. Ansonsten kann ich das Bild nicht richtig zuschneiden. (Dateiformat: .tif)
Das ganze steht zwar in den Dateieigenschaften, da der Code dies allerdings allein machen soll müsste ich an diese herankommen.
Im Internet habe ich bisher entweder extrem komplizierten Code gefunden oder welchen, der über FSO läuft.
Sub x()
Dim fso As New FileSystemObject
With fso.GetFile("C:\Users\...\Downloads\75.tif")
Debug.Print "Dateiname: " & .Name
Debug.Print "Pfad: " & .Path
Debug.Print "Dateierstellung: " & .DateCreated
Debug.Print "Letzter Lesezugriff: " & .DateLastAccessed
Debug.Print "Letzter Schreibzugriff: " & .DateLastModified
Debug.Print "Attribute: " & .Attributes '<-- 32
Debug.Print "Größe: " & .Size
End With
End Sub
Ich kann hier zwar sehen, dass meine Bilddatei 32 Attribute besitzt, aber wie kann ich auf diese weiter zugreifen und diese auslesen?
Danke im Vorraus
Grüße
|