Как заменить текст соответствующими изображениями в Excel?
В практической работе мы часто хотим автоматически отображать соответствующие изображения в Excel на основе текста в определенной ячейке (например, отображение изображений продуктов на основе названий продуктов или показ соответствующих иконок на основе статусов). Поскольку в Excel нет встроенной функции "текст-в-изображение", необходимо использовать некоторые методы для достижения этой цели. Ниже в этой статье будут подробно описаны два основных решения и их методы оптимизации.
Замена текста соответствующими изображениями с помощью кода VBA
Замена текста соответствующими изображениями с помощью Kutools для Excel
Замена текста соответствующими изображениями с помощью кода VBA
Обычно нет простого и прямого способа вставить связанные изображения на основе текстовой строки в Excel, но следующий код VBA может помочь вам заменить текст соответствующим изображением.
1. Нажмите "Alt + F11", чтобы открыть окно "Microsoft Visual Basic for Applications".
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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек