ich möchte gerne mittels Excel die EXIF-Info "Titel" in einer jpg. Datei ändern.
Zum Auslesen habe ich folgenden Code (hier der einfache manuelle Aufruf)
Sub Datei_kommentar_auslesen2()
Dim myShell As Object
Dim Ordner As Object
Dim Datei As Object
Dim Titel As String
Set myShell = CreateObject("Shell.Application")
Set Ordner = myShell.Namespace("D:\Eigene_Dateien\")
Set Datei = Ordner.Parsename("998940_alleFotos_167.jpg")
Titel = Ordner.GetDetailsOf(Datei, 11)
End Sub
Nach der Anpassung möchte ich den neuen Titel in die jpg Datei wieder zurückschreiben.Weiß jemand von euch, wie man das realisieren kann?
Gruß Andy