Главная » Готовые решения

Надстройка для вставки картинок (изображений) в Excel

Надстройка PastePictures для MS Excel: общие сведения

Предназначение программы: вставка изображений в таблицу Excel, поиск картинок в папке или в Google, экспорт картинок из таблицы в папку.

Основные функции программы:

  • вставка фото из папки (поиск по имени файла)
  • вставка картинок по ссылкам из таблицы
  • поиск изображений в гугл по данным с листа Excel
  • экспорт изображений с листа в файлы

Особенности программы

  • сжатие изображений перед вставкой (получается файл минимального размера)
  • поиск картинок в подпапках (глубина поиска по подпапкам не ограничена)
  • добавление гиперссылок к вставляемым изображениям
  • 3 варианта поиска файлов в папке (по точному совпадению имени файла и значения ячейки, или по частичному вхожению)
  • 2 режима вставки картинок - подгонка размеров под ячейку, или соблюдение пропорций исходного изображения
  • возможность вставки изображений в примечания к ячейкам
  • поиск недостающих фотографий товара в Google (в т.ч. поиск по заданным сайтам)
  • режим вставки изображений сразу в несколько столбцов
  • экспорт полноразмерных изображений (в каком виде они хранятся внутри файла Excel)

Подробнее — в разделе Справка по программе

Видеоинструкция

На видео рассказывается о работе с программой, и показан процесс её настройки:

Подробные инструкции и описание функционала также можно найти в разделе Справка по программе

Видеоинструкция по дополнительным возможностям

На видео рассказывается о возможностях поиска изображений в Google:

Подробные инструкции и описание функционала также можно найти в разделе Справка по программе

Надстройка позволяет искать в выбранной папке изображения, основываясь на содержимом ячеек таблицы Excel, и производить вставку найденных изображений в соседние ячейки (или в примечания к этим ячейкам).

Кроме того, надстройка умеет скачивать изображения по ссылкам, сохраняя загруженные изображения в заданной папке, и вставлять картинки в примечания к ячейкам.

 

Принцип работы с программой:

  1. Скачиваем файл программы (по ссылке выше), и сохраняем его куда-нибудь себе на диск. (например, на Рабочий Стол)
  2. Запускаем файл надстройки PastePictures.xla(как любой другой файл Excel - двойным щелчком)
  3. Открываем файл с названиями картинок (пример файла вы увидите при тестировании программы)
  4. На панели инструментов программы нажимаем кнопку «Настройки», выставляем нужные параметры
    • На форме настроек выбираем путь к папке, содержащей картинки (изображения)
    • Выставляем необходимые размеры для ячеек с картинками, выбираем первую ячейку на листе с именем файла
    • Указываем номер столбца, в который будут помещены изображения
    • и т.д. и т.п. - настроек там много разных, но разобраться в них совсем не сложно
  5. Нажимаем в меню «Изображения» - «Вставить картинки из папки», и через несколько секунд получаем результат.
  6. Если в исходной таблице - не имена файлов, а ссылки (URL) на картинки в интернете, то используем для запуска пункт меню «Изображения» - «Вставить картинки по ссылкам».

Как скачать и протестировать программу

Для загрузки надстройки PastePictures воспользуйтесь кнопкой Скачать программу

Если не удаётся скачать надстройку, читайте инструкцию про антивирус

Если скачали файл, но он не запускается, читайте почему не появляется панель инструментов

Это полнофункциональная пробная (TRIAL) версия, у вас есть 15 дней,
в течение которых вы можете протестировать работу программы.

Этого вполне достаточно, чтобы всё настроить и проверить, используя раздел Справка по программе

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

Лицензия (для постоянного использования) стоит 2200 рублей.

В эту стоимость входит активация на 2 компьютера (вы сможете пользоваться программой и на работе, и дома).
Если нужны будут дополнительные активации, их можно будет в любой момент приобрести по 700 рублей за каждый дополнительный компьютер.

Комментарии

Евгений, 16 Авг 2011 - 15:42.#1

можно ли реализовать альтернативный, третий вариант:
3) Внести соответствующие изменения в код с моей помощью :-)
Если я правильно понял, то нужно внести изменения в данной части вашего кода:
Sub InsertPhoto(ByVal PhotoPath As String, cell As Range)
dh = 2
On Error Resume Next
Dim ph As Picture: Set ph = cell.Parent.Pictures.Insert(PhotoPath)
ph.Top = cell.Top + dh
ph.ShapeRange.LockAspectRatio = 1
w = ph.Width: h = ph.Height: ph.Height = cell.Height - 2 * dh
ph.Width = w * ph.Height / h
ph.Left = cell.Left + cell.Width / 2 - ph.Width / 2

В Excel 2010 вставка осуществляется по следующему коду:
ActiveSheet.Pictures.Insert( _
"\\Dc1\UsersFiles\ERozhkov\Мои документы\Мои рисунки\416.jpg").Select

Можно ли это как-то соединить? А я уже протестирую...

Игорь (администратор сайта), 16 Авг 2011 - 15:14.#2

Здравствуйте, Евгений.

Действительно, в Excel 2010 (который, наверняка, вы и используете) вставка изображений на лист реализована несколько иначе, по сравнению с предыдущими версиями.

Решить проблему можно двумя способами:
1) переписать макрос, чтобы он при запуске из Excel 2010 вставлял в файл именно картинки, а не ссылки на них
2) использовать данную надстройку в Excel 2003-2007 (или более ранних версиях) - подобной проблемы не будет

Excel 2010 у меня пока не установлен - так что внести изменения в код пока не получится (протестировать не смогу).
Вы можете установить на своём компе дополнительно приложение Excel 2007 (без остальных программ пакета Office 2007), и запускать надстройку именно в нём.
Если такой вариант устроит - могу дать ссылку на скачивание установочного файла Excel2007 (отправлю ссылку на почту)

Евгений, 16 Авг 2011 - 14:18.#3

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

Спасибо заполезную надстройку!

Вот заметил такую проблему. Если вставить картинки в файл через эту надстройку, затем файл открыть на другом ПК, то вместо картинок отображаются крестики, типа Excel их не распознал. Если вернуть файл на тот комп где он создавался, то картинки сразу начинают отображаться. Такое впечатление, что при вставке указывается путь и связь для обновления каждой картинки.

Т.е. пользоваться созданными каталогами на других ПК, отличным от тех, на которых они создавались не представляется возможным? Я правильно понял.

Как можно с этим бороться.

Гость, 5 Авг 2011 - 17:36.#4

Спасибо, теперь работает!)))

Игорь (администратор сайта), 5 Авг 2011 - 17:19.#5

Да, этот момент я не учёл при написании макроса - поскольку формат артикула заказчика не предусматривал наличие символов типа точки.

Устранить проблему несложно - для этого найдите в коде функцию GetPicturePathForCell,

и замените её код этим:

Function GetPicturePathForCell(ByVal txt As String) As String
    For Each file In FileNames
        If Dir(file) & "." Like txt & ".*" Then GetPicturePathForCell = file: Exit Function
    Next
End Function

Теперь в столбце с названиями картинок могут присутствовать точки в имени файла (проверил, картинки вставляются)

Гость, 5 Авг 2011 - 16:13.#6

Похоже макрос считает все, что после точки расширением и не воспринимает последующие символы.(((

Гость, 5 Авг 2011 - 16:08.#7

А он точки в именах файлов воспринимает? С точкой в имени файла не вставляет, а если точку заменить например на тире то вставляет.

Олег, 28 Июл 2011 - 15:57.#8

Спасибо огромное! Вы мне безумно помогли!

Игорь (администратор сайта), 28 Июл 2011 - 15:14.#9

Проверил - проблема точно не в макросе:

Для этого предварительно переименовал один из файлов изображений в A1020AP-2AB.jpg

Причиной может стать то, что буквенные символы в имени файла и в ячейке различаются (хоть и похожи с виду), поскольку написаны в разных раскладках (к примеру, русской и английской).

Выявить проблему вам поможет надстройка для просмотра кодов символов

(скопируйте имя файла в соседнюю ячейку, и сверьте коды символов)

Олег, 28 Июл 2011 - 14:30.#10

Здравствуйте. У меня например очень странная ситуация.... Фото, имена названия которых имеют вид типа "742194.jpg", нашлись и вставились.
Фото, названия которых имеют другой вид "A1020AP-2AB.jpg" не находит и не вставляет, хотя название в ячейке "В" в точности совпадают с названием файла (ну без .jpg соответственно). Что это может быть? Уже неделю бьюсь, ищу макросы, способы... Обрадовался, что нашел и на тебе(( Помогите пожалуйста, сам я это не осилю... Заранее спасибо.

Сергей, 20 Июн 2011 - 09:45.#11

А с 2010 офисом это работает?
а то нету ничего после Ctrl+Shift+K

Павел, 9 Июн 2011 - 20:21.#12

Хнык-хнык, зря я мучился, старался - макрос с абсолютно такими же условиями недавно писал :)

Спасибо за полезную надстройку.

Анна, 24 Май 2011 - 15:19.#13

Спасибо за программу!
А как сделать чтобы картинки вставлялись не в 4-й столбец, а вдругой?

Гость, 19 Май 2011 - 15:49.#14

добрый день!

А как быть с 64 разрядными системами?

Pryanik, 13 Май 2011 - 19:44.#15

который раз захожу на сайт и поражаюсь - как это ВСЕ можно освоить???))) Спасибо за сайт очень много полезного!!!

Евгений, 4 Май 2011 - 16:58.#16

Вот огромное спасибо.
Простая в использовании и реально помогающая программа!

Гость, 21 Апр 2011 - 13:53.#17

Большое спасибо, все работает, вывел кнопку на панель быстрого доступа ShowForm, 300 изображений за 3 минуты Brilliant!

Игорь (администратор сайта), 17 Мар 2011 - 16:44.#18

Показываю путь к картинкам (формат они тоже jpeg) нажимаю кнопку "зеленую", на что пишет "не удалось найти изображений"

Если верно указана папка, и файлы в ней действительно являются изображениями (а не какими-нибудь текстовыми документами с расширением jpeg), то проблема, скорее всего, вызвана следующим:

  • имена файлов-изображений не полностью соответствуют значениям ячеек в столбце B

    • (регистр не учитывается, но имя файла без расширения должно в точности совпадать с содержимым ячейки, чтобы картинка вставилась на лист)

  • названия изображений расположены не в столбце B

    • (макрос обрабатывает все заполненные ячейки в столбце B, начиная с ячейки B1)
    Столбец можно изменить в следующей строке кода:
    Set ra = Range([b1], Range("b" & Rows.Count).End(xlUp))

Мария, 17 Мар 2011 - 15:59.#19

Вы просто БОГ! всем офисом готовы расцеловать! Спасибо!

olys, 17 Мар 2011 - 14:39.#20

Скажите пожалуйста... Показываю путь к картинкам (формат они тоже jpeg) нажимаю кнопку "зеленую", на что пишет "не удалось найти изображений". Подскажите, отчего это может быть?

Гость123, 26 Янв 2011 - 11:31.#21

Нашел переменные отвечающие за высоту и ширину вставляемой картинки (в юзерформе).
Мне кажется что данная программа более технологична, т.к. нет зависимости от текущиего размера ячейки, и картинка рамеры которой указываются в юзерформе подгоняет размеры ячейки в которую вставляется (может я что перепутал по логике макроса,но как-то так).
Хочу выразвить Вам свою благодарность! Программа очень полезная, т.к. колосально экономит время если нужно вставить очень много (от 200 до 20000) картинок, за очень короткое время)!
Единственное что я не понял, так это почему не срабаывает прогресс-бар)

Игорь (администратор сайта), 25 Янв 2011 - 19:41.#22

почему стоит ограничение на размер (ширину и высоту ячейки) вставляемых картинок?

Таково было требование заказчика.
Есть версии этой программы и с подгонкой ширины картинок под размеры ячейки (я их не успел пока опубликовать)
Необходимый для этого код можно найти здесь: http://excelvba.ru/code/PastePictures

Гость123, 25 Янв 2011 - 14:00.#23

Классная программа.
Есть только 1 вопрос - почему стоит ограничение на размер (ширину и высоту ячейки) вставляемых картинок?