Как скопировать рисунок на другой лист?

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

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

27.08.2021 12:55:19

Добрый день!
Я уже задавал похожий вопрос, к сожалению, наиболее подходящий вариант не работает (копия вставляется на первый лист).
Как скопировать его на второй лист или удалить его на втором листе по условию?

Код

Sub Макрос3()
    If Range("A2") = "Да" Then
        Sheets("Лист1").Shapes("Рисунок 1").Copy
        Sheets("Лист2").Paste Destination:=Range("D10") 'Почему вставляется на первый лист?
    Else
        Sheets("Лист2").Shapes("Рисунок 1").Delete
    End If
End Sub

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

Копирование рисунка.xlsm (18.26 КБ)

RAN

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

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

27.08.2021 13:04:36

Цитата
Михаил написал: Range("D10") 'Почему вставляется на первый лист?

Не на первый, а на активный. Укажите нужный лист.

Михаил Пользователь Сообщений: 143 Регистрация: 10.09.2020	#3 27.08.2021 13:29:26 RAN, Спасибо, получилось. Значит, в первой части можно написать любую ересь? Sheets("Лист3").Paste Destination:=Sheets("Лист2").Range("D10") тоже подходит, например.