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

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

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

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

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

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

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

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

Видеоинструкция
YouTube
VK Video
RuTube

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

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

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

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

 

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

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

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

Комментарии

Здравствуйте!Надстройка хорошая и для меня нужная.Но выложил картинки на FTP и программа их не видит,говорит "Указанная папка с изображениями не существует".В окончании пути показывает по моему неверный путь:-foto/\,откуда берет последний слеш?

СУПЕР ОБРАБОТКА ВСЕ РАБОТАЕТ 300 КАРТИНОК ВСТАЛО НА УРА!!!

Как добавить картинку? если у меня на один товар получается 2 Артикула. Оно получается что не видит картинку с названием. Или как в название картинки поставить ентер. Тобишь 1 картинку в одну строку, а второй снизу?

Подскажите пожалуйста, как сделать больше ячеек. В стандарте 40. Я просто не могу разобраться, валеночек в exel

Огромное спасибо!!! очень удобная и полезная программа. Наилучшие пожелания и еще раз большое спасибо!!!

Спасибо огромное за надстройку!!! Очень помогла!
Респект вам, так держать! :)))

Сколько будет стоить?

Извините, но я - не телепат.
Может, вы забыли задать в настройках папку, содержащую картинки?
Или, может, в выбранной папке нет изображений?

Если вы не можете разобраться с готовой протестированной программой - то, как я уже говорил, обращайтесь в ICQ или Skype, объясняйте, что надо сделать, - и я вам сам всё настрою, подключившись к вашему компьютеру (но это не бесплатно)

Здравствуйте, почему не находит изображение?

Чем я вам помогу? У всех - работает (сотни людей пользуются), а у вас - нет...
У вас хоть какая OC? Надеюсь, Windows?
Office переустанавливать не нужно. Всё и так должно работать, в любом Office.
Запускаете Excel, запускаете прикреплённый к статье файл, нажимаете комбинацию клавиш - отображается форма.

Я, конечно, могу помочь вам запустить файл (если установите TeamViewer, и потом через ICQ или Скайп сообщите мне ID и пароль) - но это будет не бесплатно.

Здравствуйте сделал по инструкции,но ничего не получается может другой офис скачать,помогите просто очень срочно надо!!

Вообще-то, надо просто включить макросы в Excel.
И всё сразу заработает.
Как это сделать - написано (и показано) здесь:
http://excelvba.ru/articles/EnableMacros/Excel

Здравствуйте,после Ctrl+shift+K ничего не появляется,что делать нужно очень срочно.Заранее спасибо.Когда запускаю файл пишет исправления в <файле для обработки> и следующее :Для этой книги недоступны проект VBA, элементы управления ActiveX и остальные программные средства.
Может у вас ее нужно купить то я согласен!

Спасибо, очень помогло.

Здравствуйте, Илья.
Надо заменить все гиперссылки с абсолютных (содержащие полный путь к файлу) на относительные.
В этом может помочь макрос типа такого: http://excelvba.ru/code/replace_hyperlinks

В новой версии надстройки (которая появится уже скоро) будет доступна опция добавления относительных гиперссылок.

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

2. функцию добавили на лист объекта ("VBAProject/Microsoft Exel Objects/Sheet1")

Куда-то вы не туда вставили функцию.
Надо в стандартный модуль вставить

И ещё в макросе надо прописать обработчик ошибок (что делать, если файл с картинкой не найден),
и переделать функцию вставки, если вы используете Excel 2010 (иначе вставленные картинки не будут сохраняться с файлом Excel)

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

Если самостоятельно не справитесь - оформляйте заказ на сайте, я сам всё сделаю (за денежку)

Сделали все, как вы описали:

1. изменили путь к папке с изображением и вставили макрос в модуль

2. функцию добавили на лист объекта ("VBAProject/Microsoft Exel Objects/Sheet1")

Появляется ошибка в макросе в этой строке:

ВставитьКартинку cell.Offset(1), ПутьККартинке$, True, True, True

Пожалуйста, помогите разобраться в чем проблема.

Я, конечно, не Павел, но отвечу)

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

Sub ВставкаКартинокВСтроку()
    Dim cell As Range: Application.ScreenUpdating = False
 
    ' в цикле перебираем ячейки с именами файлов
    For Each cell In Range("a1:k1").Cells
        ' формируем путь к файлу изображения
        ПутьККартинке$ = "d:\pictures\" & cell & ".jpg"
        ' вставляем найденную картинку в ячейку ниже
        ВставитьКартинку cell.Offset(1), ПутьККартинке$, True, True, True
    Next cell
End Sub

Вам надо будет подкорректировать путь к папке с изображениями,
и добавить в код функцию вставки картинок из этой статьи:
http://excelvba.ru/code/PastePictures

Павел, добрый день!

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

Например,если названия файлов находятся в ячейках A1-K1 и A2-K2 и картинки необходимо вставить в таком же диапозоне.

Будем очень признательны за ответ.
Спасибо.

Здравствуйте, Павел.
Какая программа пишет, что нет элементов для отображения? Точно моя надстройка?
Вроде я такого сообщения не делал.

Может, в выбранной вами папке действительно нет файлов-изображений?

Здравствуйте у меня надстройка не видит фоток, программа пишет что нет елементов для отображения

Здравствуйте, Павел.
Это вам надо не надстройку скачать, а другой табличный редактор (вместо Excel)
Ограничение по высоте строки (409,50) встроено во все версии Excel его разработчиками - и никакая надстройка снять это ограничение не сможет.

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

Добрый день, как я могу скачать надстройку где снимаются ограничения по высоте строки 409,50??? Спасибо!

Вы хотите сделать высоту ячейки больше 100 чего? пикселей, миллиметров, пунктов?

Я уже не помню, что там в коде, - но, может, я поставил это ограничение, чтобы не превысить максимальную допустимую высоту строки.

Попробуйте увеличивать высоту строки - упретесь в ограничение Excel:

максимальная высотаа строки (ячейки) в Excel

у меня в Excel эта максимальная высота составляет 546 пикселей (409,5 пунктов)

 

PS: Сейчас в надстройке некоторые размеры (ячеек, картинок, примечаний) ограничены каким-то заранее заданным диапазоном.

В ближайшее время выложу новую версию надстройки, где можно будет снять эти ограничения.

 

А как можно сделать высоту ячейки больше 100? В коде прямого ограничения не нашла...

Очень надо увеличить размер картинок.. 400 мало.. Нужно минимум 800..

да конечно все работает

Я работала с этой надстройкой в старом Excele.
А для Excel 10 подходит? Что-то не могу запустить(

Спасибо большое за надстройку.
Подскажите пожалуйста как изменить размер ячеек под картники.
100 для моих потребностей маловато.
заранее спасибо.