Добрый день! Помогите пожалуйста, задача скопировать диапазон ячеек на другой лист через макрос, в некоторых ячейках есть картинки. Незадача в том, что при вставке картинка увеличивается в размерах и выходит за границы ячейки, а мне нужно полное копирование вместе с текущими размерами. Файл пример прилагаю, ниже код макроса. Как это можно исправить?
Код |
---|
Range(Worksheets("Исходный лист").Cells(1, 1), Worksheets("Исходный лист").Cells(1, 2)).Copy
Worksheets("Сюда копировать").Select
Cells(1, 1).Select
ActiveSheet.Paste
|