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

Скачать бесплатно пробную (TRIAL) версию программы:
PastePictures.xla (версия 3.4.3 от 12.11.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 строки), с фиксированными размерами картинки (без соблюдения пропорций)

Комментарии

Спасибо, Ozerman.
В следующей версии исправлю.

При неверном значении в поле, из которого берется название фотографии (т.е. #Н/Д), рисуется как ни в чем не бывало фотография из предыдущей строки :)

Огромное спасибо. Я лишь видел пример,как єто работает.

Да знаю я этот пример: Выбор фото из выпадающего списка

Там же написано, как оно реализовано.

Если хорошо постараетесь - всё получится, сложного ничего нет.

Сами не справитесь - обращайтесь, могу помочь (не бесплатно)

Мне необходимо что-бы одна картинка товара из 60-ти появлялась в одном и том-же месте на другом листе, в зависимости от названия(это бланк заказа). Где то в интернете скачал пример очень похожий на эту программу, но как оно реализовано, не понимаю. Если найду, дам ссылочку.

Тут функции и формулы вряд ли помогут.
Что мешает просто скопировать столбец с картинками, и вставить на другой лист?

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

Спасибо, за изменения.
Программа за последнее время действительно стала более интересной, наверное по этому вы и код запаролили :-) ну меня это не волнует, просто заметил эту разницу. Я только рад что сам ей пользуюсь.

Из всего описанного у меня осталась проблема вставки с галкой "сохранить пропорции рисунка"., не знаю как вставлять в этот форум картинки, так бы показал.

У меня пропорции не соблюдаются при любом из положений галки, при этом на вашем фото происходит пропорциональное изменение рисунка, а у меня происходит подгонка под размер ячеек, что приводит к сжиманию картинки и искажению. Если есть альтернативная почта, могу выслать принтскрин.

Отлично работает функция вставки картинов в примечания, там все идет в оригинальных пропорциях.

Ваши пожелания выполнены )

1. Действительно, алгоритм подсчёта файлов был крайне неоптимален. Если на маленькой папке это почти не было заметно, то на больших объёмах папок всё дико тормозило.

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

 

2. Реализовал различные настройки для вставки картинок в ячейки, и в примечания.

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

 

3. Галочка "сохранить пропорции рисунка" работает нормально (по крайней мере, у меня)

Посмотрите пример вставки картинок без галочки (4-й столбец) и с галочкой (5 и 6 столбцы):

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

 

PS: Прикрепил обновлённые файлы надстройки к статье.

Присоединяюсь с благодарностью, за проделанную работу!
Про вас и ваш сайт с удовольствием рассказываю знакомым!

По файлу есть такие вот предложения:
1. Функция "вывод количества файлов в выбранной папке"
она приводит к тому, что теперь окно программы появляется со значительной задержкой, порядка 50сек, при размере папки с картинками в 1.5 гектара. Например, я открыл файл для вставки картинок, потом закрыл, котом решил удалить картинки, изменил размер, поработал с картинками и решил вставить новые, снова открыл программу и каждый раз происходит пересчет и обновления кол-ва файлов. Ни какой ключевой информации эта функция не несет, ну есть у меня 13тыс. картинок и что из этого? За то время теряется каждый раз и создается впечатление, что программа работает медленно, хотя я знаю, что это не так! Если есть возможность или оптимизировать или убрать.
2. Функция "возможность вставки изображений в комментарии к ячейкам" мне очень понравилась! Только она вставляет картинки оригинальных размеров, а, как правило, они идут в хорошем качестве, что приводит к тому, что при наведении на примечание, появляющаяся картинка не видна на весь экран, только при сильном масштабировании. Если возможно, то пусть подхватывает настройки из полей Ширины и Высоты, ну или имеет отдельные настройки, что более интересно, т.к. можно увидеть более качественную картинку, но не на несколько экранов :-)
3. Что-то не понял, как работает галочка "Сохранять пропорции рисунка", при любом ее состоянии картинки вставляются под размер ячейки, без сохранения пропорций, получается, что все вытянутые.

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

Заранее спасибо!

Уважаемый Автор, большое спасибо за оперативный ответ на мою просьбу.

Обновление превзошло все мои ожидания.
Своей программой вы мне очень помоглb - вручную больше ничего делать не надо )))

21.08.2011 надстройка обновлена - добавлены новые функции, устранены недостатки, учтены ваши пожелания и замечания.

Среди новых возможностей надстройки вставки изображений на лист Excel:

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

 

Кроме того, устранены следующие проблемы:

  • в Excel 2010 вставленные картинки не сохранялись вместе с файлом (полностью переработана функция вставки картинок)
  • надстройка совместима с 64-битной верией Office (убрал ненужную API-функцию, которая работала только в 32-битной версии)
  • нормально обрабатываются картинки, содержащие точки в имени файла (изменил функцию подбора подходящего файла)

Очень полезный макрос.
Давно его искал.
Огромное спасибо Автору.

Есть ли возможность чтоб имена файлов-изображений не полностью соответствовали значениям ячеек в столбце B
Например значение ячейки 742194 а название файла изображения 742194-1.jpg или 742194fa.jpg

Заранее благодарен за ответ.

на работе у всех стоят офисы 2010, а 2007 правила не разрешают ставить :-(
эх, ладно буду по старинке, ручками...

Но за программу все равно спасибо!

Код в моей надстройке ничем не отличается от предложенного вами.
Это та же самая функция Pictures.Insert для листа Excel, которую разработчики Excel2010 зачем-то изменили (сделали вставку ссылок вместо изображений)

Тут надо использовать другой способ (какой - забыл, где-то попадалось на форумах)

можно ли реализовать альтернативный, третий вариант:
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

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

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

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

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

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

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

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

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

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

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

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

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

Устранить проблему несложно - для этого найдите в коде функцию 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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

добрый день!

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

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

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

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