Это предварительное решение. Попробуйте эти два макроса.
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 Первый макрос с именем Del_Pics удалит все вставленные изображения из файла. Предполагается, что у вас нет статических вставленных изображений в файл, который вы хотите всегда присутствовать в файле.
Второй макрос Add_Pics добавляет соответствующие изображения в соответствующие ячейки в файле. Вам необходимо изменить это, чтобы указать точное имя файла, путь и местоположение ячейки, как это применимо на вашем листе. Повторите для всех фото. Однако возможно и более разумное решение для зацикливания всех файлов в папке и размещения в соответствующих ячейках.
Это предварительное решение. Это не проверяет размер изображения и не регулирует высоту и т. Д.
Нажмите ALT + F11 для доступа к VBA Editor, вставьте модуль из меню вставки и вставьте в него вышеуказанный код.
Когда нужно запустить то же самое. Нажмите ALT + F8 для доступа к диалоговому окну Macro, выберите и запустите нужные макросы. Вы можете также объединить их в один код. Сначала разместите код Del_Pics.