Как заменить текст соответствующими изображениями в 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.