ник: Lukas
Так переместить или скопировать?
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
|
Имена/индексы листов, индексы/имена рисунков, смещение рисунка и т.д. подставить свои.