Bilder einfügen, wenn nicht vorhanden
17.05.2018 17:01:30
Idence
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
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
Anzeige