| |
|
|
| | Добрый день!
Столкнулся с проблемой, не могу переместить рисунок находящийся на одном листу, в другой. Т.е. задача скопировать рисунок на другой лист и желательно в определенное место. Заранее благодарю. | |
| |
| |
| |
|
|
| | Так переместить или скопировать?
With Application.Workbooks(1)' Здесь должна быть ссылка на книгу
.Sheets("Лист1").Shapes(1).Copy ' Cut
With .Sheets("Лист2")
.Paste
With .Shapes(1)
.IncrementLeft 100
.IncrementTop 100
End With
End With
End With
|
Имена/индексы листов, индексы/имена рисунков, смещение рисунка и т.д. подставить свои. | |
| |
| |
| |
|
|
| | Спасибо. Исчерпывающе.
Все получилось)))  | |
| |
| |
