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

著者Xiaoyang変更日2025-04-08

実際の業務では、特定のセルに記載されたテキストに基づき、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 キーを押してこのコードを実行し、表示されたダイアログボックスで対応する画像を挿入したいデータ範囲を選択してください（下記スクリーンショット参照）。

テキストから画像への置き換え用の範囲を選択するVBAコードダイアログボックス

4。その後、「OK」ボタンをクリックすると、すべての対応する画像が元のテキストに置き換わります（下記スクリーンショット参照）。

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

注：上記コード内で、スクリプト内の画像のファイルパスを自分の環境に合わせて変更する必要があります：Const imageFolderPath As String = 「C:\Users\skyyang\Desktop\Animal\」

Kutools for Excel でテキストを対応する画像に置き換える

VBA コードに不慣れな方や、コードを使わずに済ませたい方は、ぜひKutools for Excel をお試しください。このツールは強力で効率的なソリューションを提供し、わずか数回のクリックでテキストを対応する画像に簡単に置き換えられます。Kutools なら、特定のテキストを事前に設定した画像と直接マッチさせることができ、コードを一切記述する必要がありません。さらに、ニーズに合わせて画像サイズを自由に調整できるため、Excel シート内でのレイアウトに柔軟性を持たせることができます。

Kutools for Excelは300 以上の高度な機能を提供し、複雑な作業を効率化して、創造性と生産性を高めます。AI 機能と統合されたKutools は、正確にタスクを自動化し、データ管理を簡単にします。Kutools for Excel の詳細情報。。。 無料トライアル。。。

Kutools for Excel をインストール後、以下の手順に従って操作してください。

1。「KUTOOLS PLUS」＞「インポート／エクスポート」＞「画像のマッチングインポート」をクリックします（下記スクリーンショット参照）。

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

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

3。その後、「画像のマッチングインポート」ダイアログが表示されたら、関連画像を配置するセルを1 つ選択してください（テキストの元セルを選択することも可能です）（下記スクリーンショット参照）。

対応する画像を挿入するセルを選択しているスクリーンショット

4。その後、「OK」ボタンをクリックすると、テキストに一致するすべての画像がワークシートに挿入されます（下記スクリーンショット参照）。

Kutoolsを使用後にExcelのセル内に挿入された画像を示すスクリーンショット

注意事項：

テキストに対応する画像が見つからない場合、セルには何も挿入されません。
画像を横方向に挿入したい場合は、「インポート順序」セクションで「行ごとに塗りつぶしてから列ごとに塗りつぶす」にチェックを入れてください。

Excel では、VBA コードやKutools for Excelツールを使ってテキストを対応する画像に置き換えることで、業務効率とデータの視覚化が大幅に向上します。VBA スクリプトを記述する方法でも、Kutoolsプラグインを使う方法でも、ユーザーはテキストから画像への置き換えを素早く実現でき、さまざまな業務ニーズに柔軟に対応できます。自分に合った方法を選ぶことで、データ処理がより効率的で直感的になり、業務全体の品質もさらに高まります。さらに多くのExcel ヒントやテクニックを知りたい方は、当サイトで数千ものチュートリアルをご活用ください。Excel マスターへの近道です！。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
連携してさらにパワーアップ— Office アプリ全体で生産性が向上
30 日間のフル機能トライアル— 登録不要、クレジットカード不要
最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。