Excelでセルに名前を入力すると画像が自動で切り替わる表の効率的な作り方｜名前の定義を簡略化するテクニック

Excelで「名前を入力すると隣のセルに対応した画像が自動で表示される表」を作成する際、名前の定義機能を使う方法がよく紹介されますが、行数や画像が多いと設定が大変です。この記事では、名前の定義を使わずに効率よく画像を切り替える方法や、名前の定義を簡略化する裏ワザなど、実践的なテクニックを紹介します。

よくあるやり方：名前の定義＋INDIRECT関数を使う方法
代替案① カメラ機能＋VLOOKUP＋リンク画像で自動切り替え
代替案② VBA（マクロ）で画像の表示を自動化
名前の定義を簡略化する小技
まとめ：目的や作業量に応じて最適な方法を選ぼう

よくあるやり方：名前の定義＋INDIRECT関数を使う方法

一般的な方法は以下の手順です。

画像を別シートに貼り付け、それぞれに名前を定義（例：=画像_田中）
表示したいセルに入力された名前を元に、INDIRECT("画像_" & A1)のように参照
対応画像を連動させる

ただし、これを50人分など大量に設定すると、名前の定義作業が非常に手間になります。

代替案① カメラ機能＋VLOOKUP＋リンク画像で自動切り替え

Excelのカメラ機能とVLOOKUP関数を使えば、名前の定義を使わずに画像を自動切り替えできます。

手順例：

別シート（例：「画像データ」）に、名前＋画像を並べて貼り付け
名前列を検索キー、画像の位置をセル位置（例：B2など）として記録
VLOOKUP(A1,画像データ!A:B,2,FALSE) で画像のセル番地を取得
そのセルを「カメラ」機能でリンク画像として貼り付け

カメラ機能の使い方： セルを選択 →「カメラ」ツールをリボンに追加 → 画像として貼り付け（動的に変化します）

代替案② VBA（マクロ）で画像の表示を自動化

より柔軟な操作を求める場合、VBAを使って入力された名前に応じて画像を自動表示させることもできます。

例えば、以下のようなコードで、A列の名前を入力したらB列に対応画像を表示できます。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Dim imgName As String
        imgName = Target.Value & ".jpg"

        ' 画像を削除して再表示
        Dim sh As Shape
        For Each sh In Me.Shapes
            If sh.Type = msoPicture Then sh.Delete
        Next

        ' 画像挿入（画像フォルダのパスを指定）
        Me.Pictures.Insert "C:\Images\" & imgName
        With Me.Pictures(Me.Pictures.Count)
            .Top = Cells(Target.Row, 2).Top
            .Left = Cells(Target.Row, 2).Left
            .Height = 60
        End With
    End If
End Sub

※画像ファイル名は名前と一致させ、指定フォルダに保存しておく必要があります。