VBA Excel classe ClGdiPlus
Bonjour,
malgré les géniaux tutos de l'auteur de ClGdiPlus, je n'arrive pas à modifier les tags Exif de photos jpeg.
J'arrive à lire parfaitement tous les tags, mais en aucun cas à en modifier certains.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
' Déclaration de la classe
Dim clGdip As New ClGdiPlus
Sub EcritureDate()
TFichier = "C:\Tmp\100_2715.jpg"
' Ouverture du nouveau fichier
clGdip.OpenFile TFichier
' Description
EImageDescription = clGdip.GetExifData(TagImageDescription)
' Date
EDateTimeOriginal = _
Format(clGdip.GetExifData(TagDateTimeOriginal), "d mmmm yyyy" & vbCrLf & "hh:nn:ss")
MsgBox EImageDescription & " " & EDateTimeOriginal
' Mise à jour de la description
EImageDescription = "essai nouvelle description"
clGdip.SetExifData TagImageDescription, EImageDescription
' Mise à jour de la date
clGdip.SetExifData TagDateTimeOriginal, DateSerial(2000, 1, 1) + TimeSerial(0, 0, 1)
' Sauvegarde
If TFichier <> "" Then
clGdip.SaveJpegLossLess TFichier
End If
clGdip.CloseFile
If Not clGdip Is Nothing Then Set clGdip = Nothing
End Sub |
J'ai suivi pas à pas ce que fait la procédure dans la classe et je ne trouve pas d'erreur.
Quelqu'un aurait-il une idée ? Merci d'avance.
