|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.10.2016, 12:36 | #1 |
Пользователь
Регистрация: 28.10.2011
Сообщений: 14
|
Вставить изображение в несколько файлов
Всем доброго времени суток. Есть 2000 фалов Excel, нужно в каждый из них на первый лист (в идеале еще бы и в заданную ячейку) вставить скан печати. Т.е. выбираем файл картинки, выбираем папку с Excel файлами, нажимаем кнопку - картинка вставляется в каждый из выбранных файлов.
Гугл не особо помог. Может хоть кто на мысль как реализовать натолкнет? |
28.10.2016, 13:27 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Макрос для вставки картинки а заданную ячейку / диапазон ячеек:
http://excelvba.ru/code/PastePictures Осталось прикрутить цикл (10 строк кода), перебирающий все файлы в папке, открывающий каждый файл, вставляющий печать, и закрывающий файл с сохранением |
28.10.2016, 13:27 | #3 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
поможет макрос.
думаю, не более 10 строк
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
28.10.2016, 14:28 | #4 | |
Пользователь
Регистрация: 28.10.2011
Сообщений: 14
|
Цитата:
P.S. Ваш скрипт и надстройку видел |
|
28.10.2016, 15:09 | #5 |
Пользователь
Регистрация: 28.10.2011
Сообщений: 14
|
получается, что-то типа такого? Только в блок "Вставка значения" вставляем картинку, а не значение ячейки. Правильно?
Код:
Последний раз редактировалось wolf_den; 28.10.2016 в 15:36. |
28.10.2016, 15:46 | #6 |
Пользователь
Регистрация: 28.10.2011
Сообщений: 14
|
Макрос запускаться отказывается, ругается "sub or function not defined vba"
В Tools - References включил пункт Solver. Всё равно ошибка. Код VBA вставлял в Module1. Пробовал объявить как Sub Module1.Vstavka(), тогда ошибка "Expected: end of statement" |
28.10.2016, 17:23 | #7 |
Пользователь
Регистрация: 28.10.2011
Сообщений: 14
|
Все решил. Взял
отсюда файл Изменил его в соответствии с этой темой (там же и ссылка на файл была) Вставил картинку Код:
Код:
|
28.10.2016, 17:32 | #8 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
в нормативные 10 строк вписались?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как вставить изображение из БД в Excel? | Dux | БД в Delphi | 6 | 29.02.2016 11:15 |
Как вставить изображение на этом форуме? | SASFM | О форуме и сайтах клуба | 6 | 28.10.2015 08:20 |
Как вставить изображение в таблицу | MIKE11IPME | БД в Delphi | 2 | 22.04.2012 18:12 |
Вставить изображение в innertext | Droid | JavaScript, Ajax | 5 | 12.10.2011 13:53 |
Как вставить изображение в RichEdit?? | ver | Помощь студентам | 1 | 19.12.2009 21:52 |