Вставка картинки на каждую страницу (область печати)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вставка картинки на каждую страницу (область печати) (Формулы/Formulas)

koyaanisqatsi

Дата: Четверг, 17.09.2015, 11:33 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте.

Вставка картинки на каждую страницу (область печати) в заданное место. На первой этикетки пример как надо расплодить по всем этикеткам значек "ЕАС". Можно конечно и руками) Но сами понимаете долгова-то когда этикеток много....

К сообщению приложен файл: 9017585.xlsx (18.1 Kb)

Ответить

Manyasha

Дата: Четверг, 17.09.2015, 14:12 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

koyaanisqatsi, на Вашем файле как-то так можно:
[vba]

Код

Sub test()
     Sheets(1).Shapes(1).Copy
     For Each p In Лист1.HPageBreaks
         r = Split(p.Location.Address, "$")(2)
         Range("b" & r).Select
         ActiveSheet.Paste
     Next p
End Sub

[/vba]
Вторая страничка должна быть на строку ниже вроде.

К сообщению приложен файл: 9017585.xlsm (23.8 Kb)

ЯД: 410013299366744 WM: R193491431804

Ответить

koyaanisqatsi

Дата: Четверг, 17.09.2015, 14:21 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

Manyasha, Красота ) А я руками уже весь день вставляю ) А есть возможность написать что-то подобное что могло бы отменить вставленные картинки на листе ?

Ответить

koyaanisqatsi

Дата: Четверг, 17.09.2015, 14:25 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

Manyasha, а как прописать чтобы копировал не с листа1 "For Each p In Лист1.HPageBreaks" А с активного листа откуда запускаю макрос ?

Ответить

Manyasha

Дата: Четверг, 17.09.2015, 14:33 | Сообщение № 5

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

koyaanisqatsi,

Цитата koyaanisqatsi, 17.09.2015 в 14:25, в сообщении № 4

с активного листа

Лист1 замените на ActiveSheet.

Для отмены действия макроса нужен отдельный код, мне кажется, проще в цикле удалить все картинки кроме первой.
Если требуются более полные ответы, как убрать картинки, создавайте другую тему.

ЯД: 410013299366744 WM: R193491431804

Ответить

koyaanisqatsi

Дата: Четверг, 17.09.2015, 15:00 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

Manyasha, Я в файле пример не указал что у меня на каждом листе есть кнопка объект привязанный к макросу. Ваш вариант макраса почему-то цепляется именно к тому объекту в не зависимости от того какой объект выделен или скопирован в буфер. Как дать понять макросу какой именно объект хотим клонировать ?

PS: Сам сообразил методом научного тыка. Надо было на 2 поменять переменную "Shapes(2)"

Спасибо огромное !

Сообщение отредактировал koyaanisqatsi - Четверг, 17.09.2015, 15:29

Ответить

fighttyler

Дата: Вторник, 20.09.2022, 15:13 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 20% ±

Цитата Manyasha, 17.09.2015 в 14:12, в сообщении № 2 (

)

Sub test()
    Sheets(1).Shapes(1).Copy
    For Each p In Лист1.HPageBreaks
        r = Split(p.Location.Address, "$")(2)
        Range("b" & r).Select
        ActiveSheet.Paste
    Next p
End Sub

Здравствуйте. Вы мне помогали с копированием рисунка по этикеткам. А если три картинки как надо код изменить?

К сообщению приложен файл: 6541679.xlsm (33.2 Kb)

Ответить

Страница 1 из 1
1