ich füge mit diesem Code Bilder aus einem Ordner in ein Excel-Tabellenblatt ein.
Sub Bilder_einfügen()
Dim Pfad As String
Dim Zeile As Long
Pfad = "C:\..."
For Zeile = 8 To Range("D65536").End(xlUp).Row
Cells(Zeile, 6).Activate
If Cells(Zeile, 4) Cells(Zeile - 1, 4) Then ActiveSheet.Pictures. _
Insert(Pfad & Cells(Zeile, 4) & ".jpg").Select
End If
Selection.ShapeRange.Width = 160
Next
End Sub
Soweit klappt alles. Allerdings wird dieser Code im Rahmen des kompletten Programms mehrmals durchgeführt, sodass man Duplikate dieser Bilder erhält. Ich bin auf der Suche nach einer Möglichkeit inkl. Umsetzung, dies zu verhindern:1. Möglichkeit: Das Bild wird nur eingefügt, wenn es nicht im Tabellenblatt vorhanden ist.
2. Möglichkeit: Alle Bilder werden, bevor der Code durchgeführt wird, gelöscht.
Sicherlich gibt es auch viele andere Möglichkeiten.
Leider weiß ich nicht, wie ich eine der beiden Möglichkeiten umsetzen kann.
Fällt jemanden hierzu etwas ein?
Gruß
Idence