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

Код
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
 
Цитата
Михаил написал:
Range("D10") 'Почему вставляется на первый лист?
Не на первый, а на активный. Укажите нужный лист.
 
RAN, Спасибо, получилось.
Значит, в первой части можно написать любую ересь?
Sheets("Лист3").Paste Destination:=Sheets("Лист2").Range("D10")
тоже подходит, например. :sceptic:
Страницы: 1
Читают тему (гостей: 1)
Наверх