mail mail
Нужен макрос для Excel?
Сделайте заказ прямо сейчас!
Ищете готовое решение?
Выбирайте и покупайте!
У вас есть интернет-магазин?
Настроим парсер под любой сайт!

Скачать бесплатно пробную (TRIAL) версию программы:
PastePictures.xla (версия 3.4.2 от 04.05.2017)


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

Поиск изображений в папке, с последующей вставкой на лист Excel

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

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

Внимание:

21.08.2011 надстройка обновлена - добавлены новые функции, устранены недостатки, учтены ваши пожелания и замечания.
06.10.2012 надстройка полностью переработана - добавлено меню и новые функции, встроена поддержка обновлений.
24.01.2013 добавлена функция поиска недостающих картинок в Google - теперь, за считанные минуты, можно наполнить прайс-лист подходящими фотографиями товара.
18.03.2013 реализовано сжатие вставляемых картинок - причем не только при вставке в ячейки, но и в примечания.
24.04.2016 настройка переведена на новый движок, а также восстановлена работа поиска изображений в Google.

Особенности надстройки:

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

 

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

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

 

Смотрите видеоинструкцию по использованию надстройки для вставки изображений в Excel

 

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

 

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

Комментарии

Подскажите пожалуйста, как сделать больше ячеек. В стандарте 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 для моих потребностей маловато.
заранее спасибо.

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

Сделать, конечно, такое можно (например, под заказ),
но искать готовое решение в интернете не имеет смысла - больше времени потратите.

PS: Проблема с гиперссылками решается очень просто - достаточно немного изменить надстройку, чтобы она вставляла в книгу Excel не абсолютные, а относительные гиперссылки.
Тогда вы можете отправлять книгу Excel вместе с папкой с фотографиями,
и на других компах всё будет работать как и у вас.

Не попадалась ли Вам надстройка которая вставляет фотографии из папки на разные листы Excel подписывая листы именами файлов? В этом случае снимается проблема с переносом таблицы с гиперссылками на другой носитель.

Добрый день!
Спасибо огромное за эту надстройку! Когда нашли, всем офисом прыгали от радости :)))
Единственное, что столкнулись с проблемой гиперссылок при переносе файла на другой компьютер. В бланке заказа через Вашу великолепную программу вставляю минифото товара и гипперссылку на фото высокого качества. Адрес гиперссылки получается, например, С:\Фото\Картинка1.jpg. Далее бланк заказа и папку с фото копирую на флэшки для клиентов. При открытии бланка заказов на другом компьютере гипперсылки уже не работают. Возможно ли это как-то исправить?

Еще раз спасибо!

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
  _   _   _   _____   _    ___    _     
| | | | | | |___ | (_) / _ \ | |__
| | | |_| | / / | | | | | | | '_ \
| | | _ | / / | | | |_| | | |_) |
|_| |_| |_| /_/ |_| \__\_\ |_.__/
Введите код, изображенный в стиле ASCII-арт.