Excelでテキストを対応する画像に置き換えるにはどうすればよいですか？

実際の業務では、特定のセル内のテキストに基づいてExcelに自動的に対応する画像を表示したい場合があります（例：商品名に基づいて商品画像を表示したり、ステータスに基づいて対応するアイコンを表示したりするなど）。Excel自体には「テキストから画像」への変換機能が組み込まれていないため、この目的を達成するにはいくつかの技術が必要です。以下では、この記事では主な2つの解決策とその最適化方法について詳しく説明します。

VBAコードを使用してテキストを対応する画像に置き換える

Kutools for 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. そして「OK」ボタンをクリックすると、すべての対応する画像が元のテキストを置き換えます。スクリーンショットをご覧ください：

Kutools for Excelを使用してテキストを対応する画像に置き換える

VBAコードに慣れていない、または使用したくない場合は、Kutools for Excelをお試しください。これは強力で効率的なソリューションを提供し、数回のクリックで簡単にテキストを対応する画像に置き換えることができます。Kutoolsを使用すると、特定のテキストを事前に設定された画像と直接マッチングさせることができ、コードを書く必要はありません。さらに、画像のサイズを必要に応じて調整できるため、Excelシート内での配置に柔軟性を持たせることができます。

Kutools for Excelをインストール後、次の手順を行ってください：

1. 「Kutools Plus」>「インポート & エクスポート」>「画像のマッチングインポート」をクリックします。スクリーンショットをご覧ください：

2. 「画像のマッチングインポート」ダイアログボックスで、次のようにオプションを設定してください：

• 「マッチ範囲」テキストボックスから、画像と一致させるセル範囲を選択してください；
• 次に、「追加」ボタンをクリックしてインポートしたい画像ファイルを選択します；
• インポートサイズのドロップダウンから挿入する画像のサイズを指定します（ここでは、「画像サイズに合わせる」「セルサイズに合わせる」「画像サイズを指定する」のいずれかを選択できます）；
• 画像のインポート順序を選択します；
• 最後に、「インポート」ボタンをクリックします。
  

3. そして、ポップアップした「画像のマッチングインポート」ダイアログから、関連する画像を配置するセルを選択します（テキストの元のセルを選択することもできます）。スクリーンショットをご覧ください：

4. そして「OK」ボタンをクリックすると、テキストに対応するすべての画像がワークシートに挿入されます。スクリーンショットをご覧ください：

Excelでは、VBAコードやKutools for Excelツールを使用してテキストを対応する画像に置き換えることで、作業効率とデータの視覚化を大幅に向上させることができます。VBAスクリプトを書く方法でも、Kutoolsプラグインを使用する方法でも、どちらもユーザーが迅速にテキストから画像への置き換えを実現でき、異なる作業ニーズに対応できます。適切な方法を選ぶことで、データ処理をより効率的かつ直感的にし、全体的な作業品質を向上させることができます。さらにExcelのヒントやコツを探求したい場合は、当社のウェブサイトには数千のチュートリアルがあり、Excelをマスターするお手伝いをします。