Grafik mit Bedingung Einfügen - Erstellungsdatum
Paulo
Mein Anliegen ist es ein Bild oder eine Grafik mit der Bedingung diese nur einzufügen wenn der bspw. Erstellungsdatum der Datei mit dem in einer Zelle vorgegeben datum zutrifft.
Wenn der Erstellungsdatum gleich ist wie in der Zelle fügt er das Bild ein Sonst nicht.
Den Code um das Foto einzufügen habe ich, wie kann ich jetzt auf die EXIF Daten des Bildes zugreifen?
Sub Grafik1()
Dim Wert As String
Wert = Application.GetOpenFilename("Gif-Grafiken (*.gif; *.gif), *.gif; *.gif)")
If Wert "Falsch" Then
Cells(10, 2).Select
ActiveSheet.Pictures.Insert(Wert).Select
Selection.Name = "Pic1"
Selection.Locked = False
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 80#
'Selection.ShapeRange.Width = 220#
End If
End SubDanke im Vorraus