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 строки), с фиксированными размерами картинки (без соблюдения пропорций)

Комментарии

Представляю вам новую версию программы «PastePictures» (версия 3.0.0)

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

 

Изменения в новой версии программы:

+ доработан механизм поиска изображений в Google
(возможность формировать поисковый запрос по маске, с текстом из нескольких столбцов)

+ переработан алгоритм формирования имён файлов при загрузке картинок по ссылкам
(теперь, при повторной вставке картинок, они не загружаются заново из интернета)

- устранены ошибки при ознакомлении с программой на тестовых файлах

 

Рекомендую обновить программу до версии 3.0.0 - и воспользоваться новыми возможностями.

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

Уведомляю, что 25 января 2013 г. в 15:54 стало доступно обновление программы «PastePictures» (версия 3.0.0 Beta).

Изменения в новой версии программы:

Доработки по плагину поиска картинок в интернете:
+ режим автоматического поиска и вставки первой картинки из выдачи Google,
+ возможность вставки в таблицу исходного URL,
+ замена ранее выбранного изображения на новое,
+ удаление изображения из строки

Рекомендуем обновить программу до последней версии!

Уведомляю, что 24 января 2013 г. в 14:21 стало доступно обновление программы «PastePictures» (версия 3.0.0 Alfa).

Изменения в новой версии программы:

+ добавлена возможность вставки картинок для выделенного диапазона ячеек с именами файлов

+ реализован поиск недостающих картинок в Google
(достаточно щелкнуть на одной из картинок из выдачи Google, чтобы она вставилась в Excel и скопировалась в заданную папку)

Картинки выбираются, копируются и вставляются нажатием одной кнопки!

(нажмите на картинке для увеличения)

Рекомендуем обновить программу до последней версии!

Уведомляю, что 19 января 2013 г. в 01:48 стало доступно обновление программы «PastePictures» (версия 2.1.1).

Изменения в новой версии программы:

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

Рекомендуем обновить программу до последней версии!

Уведомляю, что 16 января 2013 г. в 02:36 стало доступно обновление программы «PastePictures» (версия 2.1.0).

Изменения в новой версии программы:

+ добавлена возможность вставки списка имён файлов из папки на лист Excel
+ добавляена возможность поиска файлов по значению ячеек, с копированием подходящих файлов в выбранную папку

Рекомендуем обновить программу до последней версии!

Уведомляю, что 29 ноября 2012 г. в 01:10 стало доступно обновление программы «PastePictures» (версия 2.1.0 Alfa).

Изменения в новой версии программы:

+ множество новых настроек по вставке изображений (режим вставки, сохранение пропорций, подгонка по ширине и\или высоте, выравнивание картинок в ячейке, привязка картинок к ячейкам, и т.д. и т.п.)
настройки вставки картинок в Excel

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

+ возможность одновременной вставки картинок и в ячейки, и в примечания

+ вывод информации об изображениях (исходные и конечные размеры, количество найденных картинок) в заданные столбцы
вставка информации о картинках (размеры изображения до и после обработки)

+ возможность удаления картинок (или примечаний с картинками) из выделенного диапазона \ листа \ книги \ всех открытых книг Excel

Рекомендуем обновить программу до последней версии!

Здравствуйте, Анна.
Надстройка на Маке работать не будет:
http://excelvba.ru/buy/FAQ

 


Надстройки работают в приложении Microsoft Excel, под управлением операционной системы Windows.

 

Поддерживаются следующие операционные системы: Windows XP, 2003 Server, Vista, 2008 Server, Seven
(на Windows 8 надстройки не тестировались - но тоже все должно работать)

Работа надстроек тестировалась в Microsoft Excel версий 2003, 2007 и 2010.
(на древних версиях Excel, типа 97, 2000, XP, работа не гарантируется. В новых версиях - например, Excel 2013, всё должно работать)

Для работы надстройки, необходимо, чтобы макросы в Excel были включены.

ВНИМАНИЕ: надстройка не будет работать на других офисных пакетах (вроде OpenOffice, LibreOffice и т.д.),
а также под управлением других операционных систем (например, в Excel 2004, 2008, 2011 для MacOS - Макинтош)

 

Добрый день, очень полезная и нужная надстройка для меня, на винде шла, а на Маке не работает, можно что то с ней сделать?

Уведомляю, что 6 октября 2012 г. стала доступна новая версия программы вставки изображений в Excel (версия 2.0.0).

Изменения в новой версии программы:

+ надстройка вставки изображений в Excel полностью переработана

+ запуск вставки изображений теперь выполняется из меню программы (на панели инструментов)

+ реализована возможность вставки изображений по ссылкам

+ надстройка теперь поддерживает обновления - поэтому отныне надстройка будет регулярно получать новые полезные функции.

Рекомендую обновить программу до последней версии!

Новый функционал будет добавляться в надстройку по мере поступления ваших пожеланий.

Спасибо за подсказку насчет FTP дисков,все отлично работает.

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

Насчёт вашего случая - если вы указываете путь к FTP в качестве пути к папке, то такая проблема вполне возможна.
Дело в том, что пути к папкам содержат обратный слэш \
а путь к FTP содержит прямые слэши /
Потому программа, видя, что путь к папке в конце не содержит обратного слэша, и добавляет его.

PS: Вообще, программа на данный момент не поддерживает поиск файлов (картинок) на FTP.
FTP - это же не обычная папка, где можно выполнять поиск файлов.
Другое дело, если вы на своём компе подключите FTP папку как сетевой диск (например, при помощи программ типа WebDrive или FTPDrive) - тогда картинки ваши будут доступны как на обычном жестком диске, и моя надстройка будет корректно работать (т.к. вы укажете локальный путь к папке, - например, Z:\фото\)
Но, в этом случае, возможно, что поиск изображений будет выполняться очень долго.

Здравствуйте!Надстройка хорошая и для меня нужная.Но выложил картинки на 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

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

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