Developing.ru

Здравствуйте, уважаемые!
Просмотрел наш форум все что касается "копировать - вставить" и пресловутый Select но не смог найти решения. А вопрос такой:
есть код

Код: Выделить всё

 Sheets("КлиентБР").Shapes("AutoShape 21").Copy
    Range("C3").Select
    ActiveSheet.Paste

оно-то работает, но хотелось бы обойтись одной строкой без Select и ActiveSheet.
Спасибо.

Код: Выделить всё

Sheets("КлиентБР").Shapes("AutoShape 21").Copy
    Range("C3").Select
    ActiveSheet.Paste

Ух

Код: Выделить всё

Sheets("КлиентБР").Shapes("AutoShape 21").Copy Sheets("КлиентБР").Range("C3")

А что так не работает

Да нет, это мы проходили.

Так не работает

Если кому интересно, задачка решилась так:

Код: Выделить всё

Sheets("КлиентБР").Shapes("AutoShape 21").Copy
With Worksheets("Лист1")
    .Paste Destination:=.Range("C3")
End With

причем здесь по барабану какой лист сейчас активен. Не одной строкой, но без Select и ActiveSheet.

Developing.ru

копировать - вставить AutoShape

копировать - вставить AutoShape

Re: копировать - вставить AutoShape

Re: копировать - вставить AutoShape

Re: копировать - вставить AutoShape