Как скопировать изображение, с одного листа на другой, находящееся в копируемом диапазоне ячеек.

Пользователь

Сообщений: 223 Регистрация: 03.11.2014

16.09.2018 09:55:13

Доброго времени суток.
Проблема в следующем:
макросом копируется определенный диапазон ячеек и вставляется в другой лист. В одной из ячеек находится изображение. Макросом переносятся все данные, но изображение - нет.
В случае копирования ячейки вручную - все копируется и переносится. Макросом никак.

Прикрепленные файлы

ххх.xlsm (29.35 КБ)

Karataev

Пользователь

Сообщений: 2309 Регистрация: 23.10.2014

16.09.2018 10:09:53

Код

Sub макрос1()
Dim lr As Long
    With Application
         .ScreenUpdating = False
         lr = Sheets("Лист1").Cells(Rows.Count, 2).End(xlUp).Row + 1
         Sheets("Лист2").[B2:E7].Copy Sheets("Лист1").Range("B" & lr)
        .ScreenUpdating = True
    End With
End Sub

Лина Пользователь Сообщений: 223 Регистрация: 03.11.2014	#3 16.09.2018 10:21:26 Karataev,Спасибо работает!