Как заменить текст на соответствующие изображения в Excel?
На практике часто возникает задача автоматически отображать нужные изображения в Excel на основе текста из определённой ячейки — например, показывать товарные фото по названиям или подставлять соответствующие значки в зависимости от статуса. Поскольку Excel не поддерживает встроенную функцию «текст-в-изображение», для реализации этой возможности приходится использовать специальные приёмы. В этой статье подробно разобраны два основных подхода и способы их оптимизации.
Замените текст соответствующими изображениями с помощью кода VBA
Замените текст соответствующими изображениями с помощью Kutools для Excel
Замена текста соответствующими изображениями с помощью кода VBA
В Excel обычно нет простого и прямого способа вставить релевантные изображения на основе текстовой строки, но приведённый ниже код VBA поможет вам заменить текст соответствующим изображением.
1.Нажмите «Alt + F11», чтобы открыть окно Microsoft Visual Basic для приложений.
2. В открывшемся окне выберите «Вставка» > «Модуль», чтобы открылось новое окно модуля, и скопируйте в него следующий код VBA.
Код VBA: замена текста соответствующими изображениями
Sub ReplaceTextWithPictures()
'Updateby Extendoffice
Dim ws As Worksheet
Dim selectedRange As Range
Dim cell As Range
Dim pic As Picture
Dim picPath As String
Dim foundPic As Boolean
Dim fileExtensions As Variant
Dim ext As Variant
Const imageFolderPath As String = "C:\Users\skyyang\Desktop\Animal\"
fileExtensions = Array("png", "jpg", "jpeg", "bmp", "gif")
On Error Resume Next
Set selectedRange = Application.InputBox("Select the data range", "KutoolsforExcel", Type:=8)
On Error GoTo 0
If selectedRange Is Nothing Then
MsgBox "No valid cell range selected, operation cancelled.", vbExclamation
Exit Sub
End If
Set ws = selectedRange.Worksheet
For Each cell In selectedRange
If Not IsEmpty(cell.Value) Then
foundPic = False
For Each ext In fileExtensions
picPath = imageFolderPath & cell.Value & "." & ext
If Dir(picPath) <> "" Then
foundPic = True
Exit For
End If
Next ext
If foundPic Then
For Each pic In ws.Pictures
If pic.TopLeftCell.Address = cell.Address Then pic.Delete
Next pic
Set pic = ws.Pictures.Insert(picPath)
With pic
.Top = cell.Top
.Left = cell.Left
.Width = cell.Width
.Height = cell.Height
End With
End If
End If
Next cell
End Sub
3. Нажмите клавишу F5, чтобы запустить код, и в появившемся диалоговом окне выберите диапазон данных, в который нужно вставить соответствующие изображения (см. снимок экрана):
4. После этого нажмите кнопку «ОК» — все соответствующие изображения заменят оригинальный текст (см. снимок экрана):
Замена текста соответствующими изображениями с помощью Kutools для Excel
Если вы не знакомы с кодом VBA или предпочитаете обойтись без него, попробуйте Kutools для Excel. Этот инструмент предлагает мощное и удобное решение, позволяющее всего за несколько кликов заменить текст соответствующими изображениями. С Kutools вы можете напрямую сопоставлять нужный текст с заранее загруженными изображениями — без единой строчки кода. Кроме того, вы легко настроите размер изображений под свои задачи, обеспечивая гибкость и аккуратное размещение на листе Excel.
После установки Kutools для Excel выполните следующие действия:
1. Выберите «KUTOOLS PLUS» > «Импорт/экспорт» > «Сопоставить импортированные изображения» (см. снимок экрана):
2. В диалоговом окне «Сопоставление импортированных изображений» настройте параметры следующим образом:
- В поле «Диапазон сопоставления» щёлкните, чтобы выбрать диапазон ячеек, который нужно сопоставить с изображениями;
- Затем нажмите кнопку «Добавить», чтобы выбрать файлы изображений, которые требуется импортировать;
- Укажите размер вставляемых изображений в раскрывающемся списке Размер импорта (здесь можно выбрать «соответствовать Размер изображения», «соответствовать размеру ячейки» или «задать Размер изображения» в зависимости от ваших потребностей);
- Выберите Порядок импорта для своих изображений;
- Наконец, нажмите кнопку «Импорт».
3. Затем в появившемся диалоговом окне «Сопоставьте импортированные изображения» выберите ячейку для размещения связанных изображений (можно также выбрать исходную ячейку с текстом) (см. снимок экрана):
4. После этого нажмите кнопку «ОК» — все изображения, соответствующие тексту, будут вставлены на лист (см. снимок экрана):
- Если изображения, соответствующие тексту, не найдены, ячейка останется пустой.
- Если вы хотите вставлять изображения горизонтально, установите флажок «Заполнить по строке, затем по столбцу» в разделе «Порядок импорта».
В Excel замена текста на соответствующие изображения с помощью кода VBA или инструмента Kutools для Excelзначительно повышает эффективность работы и улучшает визуализацию данных. Оба подхода — написание макросов на VBA или использование надстройки Kutools — позволяют быстро выполнить такую замену и гибко решать разнообразные задачи. Правильный выбор метода делает обработку данных не только эффективнее, но и интуитивно понятнее, что напрямую повышает качество вашей работы. Хотите освоить ещё больше полезных приёмов в Excel? На нашем сайте — тысячи обучающих материалов, которые помогут вам стать экспертом в Excel!
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек