Страницы: 1
RSS
Вставить копированный объект в определенное место листа
 
На одном листе книги есть несколько картинок.
С помощью макроса данные картинки вставляются на все выделенные листы книги в начало (ячейка А1).
Код
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=147677&TITLE_SEO=147677-vstavka-obekta-na-vse-vydelennye-listy-aktivnoy-knigi

Подскажите, можно ли вставить картинки в то же место, как на листе, с которого копируются.

Заранее спасибо.
Изменено: vikttur - 18.02.2022 19:14:36
 
Можно. А с предыдущей темой мы закончили?
Владимир
 
Я попросил выделить в отдельную тему вставку в нужное место, т.е. определение координат
 
Здравствуйте, Виктор! Я это увидел.  :)
Мы еще не закончили с вставкой нескольких картинок (без определения координат).
Владимир
 
Код
Sub CopyPictures()
  Dim ws As Worksheet, j As Long, shp
  Set arrSh = ActiveWindow.SelectedSheets
  For Each ws In ActiveWindow.SelectedSheets
    For j = 1 To Worksheets("Лист1").Shapes.Count
      Worksheets("Лист1").Shapes(j).Copy: ws.Select: ws.Paste
      Selection.Top = Worksheets("Лист1").Shapes(j).Top
      Selection.Left = Worksheets("Лист1").Shapes(j).Left
    Next
  Next
End Sub

отмечаете листы, жмете Alt+F8, находите и выполняете макрос выше
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Спасибо.
Работает.
Страницы: 1
Читают тему (гостей: 1)
Наверх