Друзья. Записал макрос. Суть - выделяю кусок таблички, нажимаю "Вставить" - "Вставить как рисунок".
И так делаю несколько раз разные кусочки таблички.
Как рисунок мне нужно вставлять потому, что я потом эти рисунки отправляю в почту.
Но по факту запуска макроса он ругается
И так делаю несколько раз разные кусочки таблички.
Как рисунок мне нужно вставлять потому, что я потом эти рисунки отправляю в почту.
Но по факту запуска макроса он ругается
| Код |
|---|
Sheets("Отчёт").Select
ActiveSheet.Range("$A$3:$B$120").AutoFilter Field:=2, Criteria1:="1"
Range("C1:R121").Select
Selection.Copy
Sheets("Лист2").Select
ActiveSheet.Pictures.Paste.Select
ActiveSheet.Shapes.Range(Array("Picture 1")).Select |
Вот эта байда ругается "ActiveSheet.Pictures.Paste.Select"..
Что делать ?
Изменено: - 30.12.2018 13:58:48