У меня есть код, который копирует изображения из одной рабочей книги в другую.Excel решает остановить код время от времени с помощью:
Ошибка 1004 «Сбой метода PasteSpecial класса Range»
Иногда он успешно копирует все изображения, но большинствовремя, когда несколько опущено (при появлении ошибки возобновляется следующее).Если я выберу «Debug» в случае ошибки и затем нажму F8, изображение будет скопировано.(но on error resume next не имеет такого же эффекта)
Другие способы копирования изображений, такие как .CopyPicture Конечный результат тот же.
'Code below is in a loop
vArr3 = Split(Cells(1, i).Address(True, False), "$")
t = vArr3(0)
Application.Goto Workbooks(BOM).Worksheets("Blad1").Range("a2")
Workbooks(BOM).Worksheets("Blad1").Shapes.Range(Array("Afbeelding " & im)).Select
Selection.Copy
Workbooks(Template).Worksheets("Sheet1").Activate
Application.Goto Workbooks(Template).Worksheets("Sheet1").Range(t & rs)
Workbooks(Template).Worksheets("Sheet1").Range(t & rs).Select
Workbooks(Template).Worksheets("Sheet1").Range(t & rs).PasteSpecial 'Error here
rs = rs + 5
im = im + 2
Я ожидаю, что Excel будет работать всегда 100% правильно.Изображения (и количество), которые не учитываются, являются случайными.