Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вставить копированный объект в определенное место листа
 
#1
18.02.2022 17:43:34
На одном листе книги есть несколько картинок.
С помощью макроса данные картинки вставляются на все выделенные листы книги в начало (ячейка А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
 
 
 
#2
18.02.2022 19:57:46
Можно. А с предыдущей темой мы закончили?
Владимир
 
 
 
#3
18.02.2022 20:04:07
Я попросил выделить в отдельную тему вставку в нужное место, т.е. определение координат
 
 
 
#4
18.02.2022 20:17:20
Здравствуйте, Виктор! Я это увидел.  :)
Мы еще не закончили с вставкой нескольких картинок (без определения координат).
Владимир
 
 
 
#5
18.02.2022 23:08:34
Код
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, находите и выполняете макрос выше
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
21.02.2022 17:20:31
Спасибо.
Работает.
 
 
 
Страницы: 1
Наверх