Цель данного обзора: Автоматизация процесса добавления изображений в ячейки Excel для создания визуально привлекательных списков сотрудников, товаров и других данных, требующих визуальной идентификации.
📢 Файл с примером размещен в конце статьи 🔽
▶️ Задачи
- Создать структуру листа Excel: задать диапазоны для имен или идентификаторов (например, список сотрудников или товаров).
Определить диапазон ячеек, куда будут вставляться изображения. - Написать VBA макрос для автоматического добавления изображений: открыть соответствующие изображения из указанной папки. Вставить изображения в соответствующие ячейки. Масштабировать изображения до 95% размера ячеек и центрировать их.
▶️ Применение
- Список сотрудников с фото: автоматически добавляйте фотографии сотрудников на лист Excel с их именами и другой информацией.
- Каталог товаров с изображениями: создавайте каталоги продуктов с визуальными представлениями, что улучшит восприятие и удобство работы с данными.
- Галерея изображений: быстро формируйте галереи изображений на основе заданных данных, экономя время на ручную вставку.
▶️ Шаг 1: Подготовка данных в Excel
Создайте таблицу в Excel и задайте именованные диапазоныю
В рассматриваемом примере два столбца для которых назначены именованные диапазоны:
- "Имя": Содержит имена или идентификаторы сотрудников, товаров и т.д.
- "Рисунок": Определите этот диапазон, куда будут вставляться изображения.
▶️ Шаг 2: Подготовка папки с изображениями
Создайте папку, например, D:\Images\, и сохраните в ней изображения, соответствующие именам или идентификаторам из таблицы.
Названия файлов изображений должны совпадать со значениями в столбце "Имя" (например, котэ_1.jpg, котэ_2.jpg и т.д.).
▶️ Шаг 3: Создание и запуск VBA макроса
Вставьте следующий код в модуль VBA в вашем Excel-файле:
😎 Примечание автора: В представленном коде устанавливается ширина и высота изображения в 90% от ширины и высоты ячейки.
Затем изображение центрируется путем смещения его верхней левой точки так, чтобы оно оказалось посередине ячейки.
Изменив параметры ширины и высоты вы можете задать нужный размер изображения
▶️ Шаг 4: Запуск макроса
- Перейдите в Excel, нажмите Alt + F8, выберите макрос и нажмите Выполнить.
- Макрос автоматически вставит изображения из указанной папки в ячейки диапазона "Рисунок", соответствующие значениям из диапазона "Имя".
⏺ Альтернативное решение для запуска макроса:
▶️ Результат
Рассмотренный прием позволяет автоматизировать рутинную задачу добавления изображений в Excel, делая процесс быстрым и эффективным.
🔶 Узнать о других способах и приемах работы в Excel можно найти в наших предыдущих обзорах 🔽
🙌 Оставайся с нами на связи и узнавай больше о других методах и приемах работы в Excel:
✅ СКАЧАТЬ ПРИМЕР 🔽