Dies ist eine vorläufige Lösung. Probieren Sie diese beiden Makros aus.
Sub Del_Pics() Dim MyPics As Object For Each MyPics In ActiveSheet.Pictures MyPics.Delete Next MyPics End Sub Sub Add_Pics() On Error Resume Next Range("C1").Select ActiveSheet.Pictures.Insert ("C:\Temp\pic1.jpg") Range("F1").Select ActiveSheet.Pictures.Insert ("C:\Temp\pic1a.jpg") End Sub
Der erste Makros namens Del_Pics löscht alle eingefügten Bilder aus der Datei. Es wird davon ausgegangen, dass Sie keine statisch eingefügten Bilder in der Datei haben, die immer darin enthalten sein sollen.
Das zweite Makro Add_Pics fügt entsprechende Bilder in den entsprechenden Zellen der Datei hinzu. Sie müssen dies ändern, um den genauen Dateinamen und -pfad sowie den Ort der Zelle in Ihrem Arbeitsblatt anzugeben. Wiederholen Sie dies für alle Bilder. Es ist jedoch auch eine intelligentere Lösung zum Durchlaufen aller Dateien in einem Ordner möglich, die dann in den jeweiligen Zellen platziert werden.
Dies ist eine vorläufige Lösung. Dies überprüft nicht die Bildgröße und passt die Höhe usw. an.
Drücken Sie ALT + F11, um auf den VBA-Editor zuzugreifen. Fügen Sie ein Modul aus dem Menü Einfügen ein und fügen Sie den obigen Code ein.
Wenn Sie das gleiche ausführen müssen. Drücken Sie ALT + F8, um das Makro-Dialogfeld aufzurufen und die beabsichtigten Makros auszuwählen und auszuführen. Sie können die beiden auch in einem einzigen Code kombinieren. Platzieren Sie zuerst den Del_Pics-Code.