Excel の画像操作：複数の画像や写真を挿入・サイズ変更・保存・削除する方法

コンピューターに保存されている画像をワークシートに挿入するのは、ほとんどの方にとって簡単です。以下の手順に従って操作してください：

1。ワークシートで、画像を挿入したい位置をクリックします。

2。次に、挿入＞画像＞このデバイスをクリックしてください。スクリーンショットを参照してください：

3。表示された画像の挿入ウィンドウで、画像が保存されているフォルダーを開き、Ctrlキーを押しながら挿入したい画像を選択してください。スクリーンショットを参照してください：

4。次に、挿入ボタンをクリックすると、選択した画像がシートに挿入されます。これで、必要なセルに合わせて画像の位置を調整したり、サイズを変更したりできます。スクリーンショットを参照してください：

Excel 2013 以降をご利用の場合、Web や OneDrive から直接画像を挿入できます。以下の手順に従って操作してください：

1。ワークシートで、画像を挿入したい位置をクリックします。

2。次に、挿入＞画像＞オンライン画像をクリックしてください。スクリーンショットを参照してください：

3。次のウィンドウが表示されたら、オンライン画像セクションのテキストボックスに検索したいキーワードを入力し、Enterキーを押してください。対応するすべての画像が一括で検索されます。スクリーンショットを参照してください：

4。次に、必要な画像を選択して挿入ボタンをクリックします。画像を挿入後は、必要な位置に合わせてサイズや配置を調整してください。

次の VBA コードを使えば、セルのサイズに合わせて複数の画像を自動的に挿入できます。以下の手順に従って操作してください：

1。画像を配置したいセルのサイズを調整してから、そのセルを選択します。

2。次に、ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

3。次に、挿入＞標準モジュールをクリックし、次のマクロを標準モジュールウィンドウに貼り付けてください。

VBA コード：セルのサイズに基づいて複数の画像を挿入

Sub InsertPictures()
'Updateby Extendoffice
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

4。次に、F5キーを押してこのコードを実行します。開くウィンドウが表示されたら、画像が含まれるフォルダーを選択し、挿入したい画像を選んで開くボタンをクリックしてください。すると、選択したすべての画像がセルのサイズに基づいて選択範囲に自動的に挿入されます。スクリーンショットを参照してください：

VBA コードに不慣れな方には、画像のインポート機能を備えたKutools for Excelがおすすめです。この便利な機能を使えば、複数の画像をセルにすばやく簡単に取り込めます！

1。KUTOOLS PLUS＞インポート/エクスポート＞画像のインポートをクリックします。スクリーンショットを参照してください：

2。表示された画像のインポートダイアログで、次の操作を行ってください：

• インポート順序ドロップダウンリストから、画像の並び順を指定できます。列ごとに塗りつぶしてから行ごとに塗りつぶすか、行ごとに塗りつぶしてから列ごとに塗りつぶすのいずれかを選択してください。
• 次に、追加ボタンをクリックして、画像ファイルまたはフォルダーを選択し、画像リストに画像を追加します。
• インポートサイズボタンをクリックし、表示される画像のインポートサイズダイアログボックスで、セルサイズに合わせるオプションを選択します。
• 

3。設定を完了したら、インポートボタンをクリックします。すると、別の画像のインポートダイアログが表示されるので、画像をインポートするセル範囲を指定してください。スクリーンショットを参照してください：

4。次に、OKボタンをクリックすると、選択したすべての画像が指定されたセルのサイズに合わせて挿入されます（下記のスクリーンショット参照）。

次の VBA コードを使えば、ファイル名に一致する複数の画像を素早く挿入できます。以下の手順に従ってください。

1．ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2．クリックして、挿入 > モジュールを選択し、次のマクロをモジュールウィンドウに貼り付けます。

VBA コード：ファイル名に一致する複数の画像を挿入

Sub InserPictureByName()
'Updateby Extendoffice
Dim xFDObject As FileDialog
Dim xStrPath, xStrPicPath As String
Dim xRgName, xRgInser, xRg, xRgI As Range
Dim xFNum As Integer
Set xFDObject = Application.FileDialog(msoFileDialogFolderPicker)
With xFDObject
    .Title = "Please select the folder:"
    .InitialFileName = Application.ActiveWorkbook.Path
    .Show
    .AllowMultiSelect = False
End With
On Error Resume Next
xStrPath = ""
xStrPath = xFDObject.SelectedItems.Item(1)
If xStrPath = "" Then
Exit Sub
End If
Set xRgName = Application.InputBox("Please select the cells contain the image name:", "Kutools for Excel", , , , , , 8)
If xRgName Is Nothing Then
    MsgBox "No cells are select, exit operation! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
Set xRgInser = Application.InputBox("Please select the cells to output the images", "Kutools for Excel", , , , , , 8)
If xRgInser Is Nothing Then
    MsgBox " No cells are select, exit operation.! ", vbInformation, "Kutools for Excel"
    Exit Sub
End If
For xFNum = 1 To xRgName.Count
    Set xRg = xRgName.Item(xFNum)
    Set xRgI = xRgInser.Item(xFNum)
    xStrPicPath = xStrPath & "\" & xRg.Text & ".png"
    If Not Dir(xStrPicPath, vbDirectory) = vbNullString Then
        With xRgI.Parent.Pictures.Insert(xStrPicPath)
            .Left = xRgI.Left
            .Top = xRgI.Top
            .ShapeRange.LockAspectRatio = msoFalse
            .ShapeRange.Height = 60
            .ShapeRange.Width = 60
        End With
    End If
Next
End Sub

注記：上記のコードでは、スクリプト内の「.ShapeRange.Height = 60」および「.ShapeRange.Width = 60」で指定されている画像の高さと幅を、必要に応じて変更できます。

3．次に、F5キーを押してこのコードを実行すると、開かれたウィンドウで挿入したい画像が含まれるフォルダーを選択してください（下記スクリーンショット参照）。

4．次に、OKボタンをクリックすると、プロンプトボックスが表示されます。ここで、「選択してください」を含むセルを画像名として指定してください（下記スクリーンショット参照）。

5．さらにOKボタンをクリックすると、別のプロンプトボックスが表示されます。ここで、画像を出力したいセルを選択してください（下記スクリーンショット参照）。

6．最後に、OKをクリックすると、画像がファイル名に基づいて一括でセル内に挿入されます（下記スクリーンショット参照）。

Kutools for Excelをお持ちなら、画像のマッチングインポート機能で、画像名に基づいて素早く簡単に画像を挿入できます。

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

2．表示された画像の照合インポートダイアログボックスで、以下の操作を行ってください。

• インポート順序ドロップダウンリストから、画像の並び順を指定できます。列ごとに塗りつぶしてから行ごとに塗りつぶすか、行ごとに塗りつぶしてから列ごとに塗りつぶすのいずれかを選択してください。
• 次に、マッチ範囲テキストボックスで、画像挿入の基準となる画像名を選択してください。
• 次に、追加ボタンをクリックして、画像ファイルまたはフォルダーを選択し、画像リストに画像を追加します。
• 次に、画像のサイズを指定してください。インポートサイズボタンをクリックすると、画像のインポートサイズダイアログボックスが開きます。ここで、必要な画像サイズを1 つ選択してください。
• 

3．設定を完了したら、インポートボタンをクリックし、表示される画像のマッチングインポートダイアログで、画像を配置するセルまたはセル範囲を選択してください（下記スクリーンショット参照）。

4．次に、OKをクリックすると、セルの値とファイル名が一致するすべての画像が一括で挿入されます（下記スクリーンショット参照）。

以下の VBA コードを実行して、URL リストに基づき画像を挿入してください。

1．まず、画像を配置したい隣接セルのサイズを調整しましょう。

2．ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

3．クリックして、挿入 > モジュールを選択し、次のマクロをモジュールウィンドウに貼り付けてください。

VBA コード：URL のリストから画像を挿入

Sub URLPictureInsert()
'Updateby Extendoffice
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub

注記：上記のコードで、A2:A5は画像を取得したい URL アドレスが含まれるセル範囲です。必要に応じてセル参照を変更してください。

4．次に、F5キーを押してこのコードを実行すると、URL から一致する画像が隣接列に抽出され、セルの中央に配置されます（下記スクリーンショット参照）。

Kutools for Excelには、「パス（URL）から画像を挿入」という優れた機能が搭載されています。このユーティリティを使えば、対応する画像を URL から素早く簡単に取り込めます！

1．Kutools>挿入>パスから画像を挿入するをクリックします（下記スクリーンショット参照）。

2．表示されたパスから画像を挿入するダイアログボックスで、以下の操作を設定してください。

• URL が入力されたセルのリストと、画像を配置したいセル範囲を選択します。
• 必要に応じて、画像サイズセクションで画像のサイズを指定してください。
• 

3．次に、OKボタンをクリックすると、すべての画像が URL から自動で抽出されます（下記スクリーンショット参照）。

画像のファイルパスに基づいて画像を挿入するには、次の VBA コードをご利用いただけます。

1．ALT + F11キーを押すと、Microsoft Visual Basic for Applicationsウィンドウが開きます。

2．クリックして、挿入 > モジュールを選択し、次のコードをモジュールウィンドウに貼り付けてください。

VBA コード：画像の挿入をファイルパスの範囲から

Sub InsertPicFromFilePath()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select file path cells:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xVal = xCell.Value
        If xVal <> "" Then
            ActiveSheet.Shapes.AddPicture xCell.Value, msoFalse, msoTrue, _
            xCell.Offset(0, 1).Left, xCell.Top, xCell.Height, _
            xCell.Height
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3．上記のコードを挿入後、F5キーを押してコードを実行すると、プロンプトボックスが表示されます。ここでファイルパスを含むセルを選択してください（下記スクリーンショット参照）。

4．次に、OKボタンをクリックすると、ファイルパスに基づくすべての画像が次の列に表示されます（下記スクリーンショット参照）。

Kutools for Excelのパスから画像を挿入する機能は、ファイルパスから関連画像を表示するのにぴったりです。

1．Kutools>挿入>パスから画像を挿入するをクリックして選択します。表示されたダイアログボックスで、必要に応じてファイルパスの範囲、画像の出力先セル範囲、および画像サイズを指定してください（下記スクリーンショット参照）。

2．オプションを設定したら、OKボタンをクリックして、画像を一度に選択したセルに挿入できます（下記スクリーンショット参照）。

ヒント：場合によっては、下記スクリーンショットのように画像がワークシートのデータ領域と重なってしまうことがあります。これは画像が大きすぎて、ヘッダーまたはフッターのセクションボックスに自動的に収まらないためです。

この問題を解決するには、ヘッダーまたはフッター内の画像サイズを調整するだけで済みます。以下の手順に従ってください。

1．画像が配置されているヘッダーまたはフッターのセクションをクリックし、次にデザインタブにある図の書式設定をクリックします（下記スクリーンショット参照）。

2．図の書式設定ダイアログボックスで、サイズタブより、画像のサイズをヘッダーまたはフッターのセクションボックスにぴったり合うように調整してください（下記スクリーンショット参照）。

3．次に、OKをクリックすると、希望どおりの結果が得られます。

1。背景画像を挿入したいワークシートを開いてください。

2。次に、ページレイアウト > 背景 をクリックします（スクリーンショット参照）。

3。「画像の挿入」ウィンドウが表示されたら、画像の挿入から、お使いのコンピューター、Web サイト、または OneDrive にある必要な画像を選択します（スクリーンショット参照）。

4。これで、下のスクリーンショットのように画像がワークシートの背景として挿入されました！

上記の方法では、挿入した背景画像の透明度を調整できません。そのため、背景画像の色が濃いとワークシートのデータが見づらくなってしまいます。このセクションでは、セルの背後に透明な画像を挿入する方法をご紹介します。

1。挿入>図形をクリックして、四角形を選択します（スクリーンショット参照）。

2。次に、アクティブなワークシート上に必要な大きさの図形を描画します。

3。図形を描画すると、リボンに図形ツールタブが表示されます。次に、書式 > 図形の枠線 > 枠線なしをクリックします（スクリーンショット参照）。

4。次に、図形を右クリックしてコンテキストメニューから図形の書式設定を選択してください（スクリーンショット参照）。

5。「図形の書式設定」ウィンドウが開いたら、図形の書式設定ペインの塗りつぶしと線タブで、以下の操作を行ってください。

• 塗りつぶしセクションで、図またはテクスチャの塗りつぶしオプションを選択してください。
• 次に、挿入ボタンを画像のソースからクリックして、挿入したい画像を1 つ選択してください。
• 次に、必要に応じて透明度セクションで画像の透明度を調整してください。
• 

6。これで、上記のスクリーンショットのように、図形が画像で塗りつぶされて背景画像のように表示されます。

注：このタイプの背景画像を挿入すると、画像範囲内にテキストを入力できなくなります。

上記の両方の方法にはそれぞれ制限があります。1 つ目の方法では画像の透明度を調整できず、2 つ目の方法では画像領域内のセルにテキストを入力できません。こうした課題を解決するには、Kutools for Excelのウォーターマークの挿入機能が最適です。

1。Kutools > 挿入 > ウォーターマークの挿入をクリックします（スクリーンショット参照）。

2。「ウォーターマークの挿入」ダイアログボックスが表示されたら、画像ウォーターマークを選択し、「画像を選択」ボタンをクリックして挿入したい画像を選び、画像の拡大率を設定して「ウォッシュアウト」オプションをオンにします（スクリーンショット参照）。

3。OKボタンをクリックすると、画像がワークシートの背景として挿入されます。

Excel では、図としてコピー機能を使えば、セル範囲を画像として簡単にコピー＆挿入できます！

1。画像としてコピーして挿入したいセル範囲を選択します。

2。次に、ホーム > コピー > 図としてコピーをクリックします（スクリーンショット参照）。

3。「図のコピー」ダイアログが表示されたら、図のコピーの図を形式セクションから選択します（スクリーンショット参照）。

4。次に、OKボタンをクリックしてから、Ctrl + Vを押せば、ブック内の任意の場所に画像を貼り付けられます。

Excel にはカメラという便利なツールがあり、選択したデータのスナップショットを画像として貼り付けられます。元のデータを変更すると、その画像も自動で動的に更新されるのです！

まずは、カメラをリボンに表示してからご使用ください。

1。クイックアクセスツールバーのカスタマイズアイコンをクリックし、「その他のコマンド」オプションを選択してください（スクリーンショット参照）。

2。「Excel のオプション」ダイアログボックスが開いたら、Excel のオプションで以下の操作を行います。

• ドロップダウンリストのコマンドの選択元から、すべてのコマンドを選択します。
• 次に、リストボックスをスクロールして、カメラを選択してください。
• 次に、追加ボタンをクリックして、このツールをクイックアクセスツールバーのユーザー設定に追加しましょう。
• 最後に、このダイアログボックスを閉じるには、OKをクリックしてください。
• 

3。これで、カメラツールがリボンに表示されました（スクリーンショット参照）。

4。次に、画像化したいセルの範囲を選択します。

5。次に、カメラツールをクリックしてワークシート内の任意の場所をクリックすると、データ範囲が下記のデモのように画像として挿入されます。

もしKutools for Excelをお持ちなら、そのリソースライブラリ機能を使えば、選択したデータをリソースライブラリに保存して、いつでも画像またはテキストとして再利用できます！

1。画像として挿入したいデータの範囲を選択します。

2。次に、Kutools>ナビゲーションをクリックします（スクリーンショット参照）。

3。「ナビゲーション」ペインが展開されたら、ナビゲーション内のリソースライブラリアイコンをクリックし、続いて選択したコンテンツをオートテキストに追加アイコンをクリックしてください（スクリーンショット参照）。

4。「オートテキストに追加」ダイアログボックスで、アイテムの名前を入力し、追加するグループを選択してください（スクリーンショット参照）。

5。次に、追加ボタンをクリックして、リソースライブラリペインに追加します。この範囲を画像として挿入したい場合は、画像を配置したいセルをクリックし、リソースライブラリペインから保存済みのアイテムを探してクリックして、「として挿入>画像（EMF）」をドロップダウンリストから選択します。すると、データ範囲がシートに画像として挿入されます（スクリーンショット参照）。

通常、Excel では動的名前付き範囲を作成し、リンクされたグラフを使ってこの課題を解決できます。

1。まず、商品名と対応する画像を含む2 つの列を作成します（スクリーンショット参照）。

2。次に、セルにドロップダウンリストを作成します。ドロップダウンリストを表示したいセルをクリックし、データ>データの入力規則>データの入力規則をクリックしてください（下記スクリーンショット参照）。

3。「データの入力規則」ダイアログボックスが表示されたら、「設定」タブで「許可」のドロップダウンからリストを選択し、続いて「元の値」テキストボックスにドロップダウンリストに使用するセル範囲を指定してください（下記スクリーンショット参照）。

4。「OK」をクリックすると、セルの値に基づいたドロップダウンリストが作成されます。下記スクリーンショットを参照して、ドロップダウンリストから項目を選択してください。

5。次に、数式 > 名前の定義をクリックします（下記スクリーンショット参照）。

6。「新しい名前」ダイアログボックスで、次の操作を行ってください。

• 名前テキストボックスに「myimage」と入力します。
• 次に、次の数式をコピーして、「参照先」テキストボックスに貼り付けます：=INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2)注：上記の数式において：
  • Sheet11!$A$2:$B$6：使用したい値と画像が含まれているワークシートの範囲です。
  • Sheet11!$E$2：ドロップダウンリストを設定したワークシート内のセルです。
  • Sheet11!$A$2:$A$6：ドロップダウンリストの元となるセル範囲です。
  • 変数番号 2は、画像が含まれる列番号です。画像が列 C にある場合は、3 を入力してください。

7。次に、「OK」ボタンをクリックした後、元の範囲からセル E2 の値に対応する画像をセル F2 にコピー＆ペーストしてください（下記スクリーンショット参照）。

8。次に、セル F2 の画像を選択し、数式バーに次の数式 =myimage（myimageは手順6 で作成したセルの名前です）を入力してください（下記スクリーンショット参照）。

9。数式を入力してEnterキーを押すと、ドロップダウンリストから項目を選択した際に、対応する画像が即座に表示されます（下記スクリーンショット参照）。

上記の方法は多くのユーザーにとってやや難しく感じるかもしれません。そこで、画像付きドロップダウンリストという便利な機能——Kutools for Excelの一部をご紹介します！この機能を使えば、わずか数回のクリックで、関連画像付きの複数のドロップダウンリストを簡単に作成できます。

1。まず、ワークシートに商品名とその画像を対応づけた2 つの列を作成してください。

2。次に、Kutools > ドロップダウンリスト > 画像付きドロップダウンリストをクリックします（下記スクリーンショット参照）。

3。「画像付きドロップダウンリスト」ダイアログボックスで、すでにセル値と画像の列を設定済みの場合はステップ1 をスキップし、元データと画像の範囲、およびリストの配置エリアを選択してください（下記スクリーンショット参照）。

4。次に「OK」ボタンをクリックすると、選択したセルに画像付きのドロップダウンリストが作成され、ドロップダウンから項目を選ぶと、対応する画像が即座に表示されます（下記デモ参照）。

通常、ワークブック内のすべての画像を保存するには、名前を付けて保存機能をご利用いただけます。以下の手順に従って操作してください。

1。「ファイル > 名前を付けて保存」をクリックし、「名前を付けて保存」ウィンドウでエクスポート先のフォルダーを指定して、「ファイルの種類」のドロップダウンリストから「ウェブページ(*。htm；*。html)」を選択します（下記スクリーンショット参照）。

2。次に「保存」ボタンをクリックして指定したフォルダーを開くと、HTML 形式のファイルと、ワークブック内の画像・グラフ・その他のオブジェクトを含むフォルダーの2 つが確認できます（下記スクリーンショット参照）。

3。その後、必要に応じて画像を別のフォルダーにドラッグできます。

注：この名前を付けて保存機能を使うと、各画像が小さいサイズと大きいサイズの2 種類で出力されるため、必要に応じて高解像度の画像を保存できます。

Excel ファイルからすべての画像を保存するには、ファイル拡張子を RAR に変更する方法もあります。以下の手順で行ってください。

1。ファイルの拡張子をxlsxからrarに変更します（下記のスクリーンショットをご参照ください）。

2。次にファイルを解凍すると、フォルダー内に3 つのフォルダーと1 つのファイルが表示されます（下記スクリーンショット参照）。

3。次にxlフォルダーを開き、さらにmediaフォルダーを開くと、重複のないすべての画像がここに保存されていることが確認できます（下記スクリーンショット参照）。

Kutools for Excelをお持ちなら、そのチャートのエクスポート機能を使えば、必要な画像・グラフ・図形などの特定のオブジェクトを画像形式で素早くエクスポートできます。

1。下記のスクリーンショットを参照し、「KUTOOLS PLUS>インポート/エクスポート>チャートのエクスポート」をクリックします。

2。「チャートのエクスポート」ダイアログボックスで、次の操作を行ってください。

• ドロップダウンリストの種類で、画像オプションを選択してください。
• エクスポートする画像を保存するフォルダーを指定します。
• 次に、エクスポート形式のドロップダウンリストをクリックし、画像の形式を1 つ選択してください。
• 

3。最後に「OK」ボタンをクリックすると、現在のブックに含まれるすべての画像が指定したフォルダーに保存されます（下記スクリーンショット参照）。

現在のワークシートから画像を削除するには、以下の VBA コードをご活用ください。手順に従って操作してください。

1。削除したい画像が含まれるワークシートをアクティブにしてください。

2。ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

3。「挿入 > 標準モジュール」をクリックし、以下のマクロを標準モジュールウィンドウに貼り付けてください。

VBA コード：現在のワークシートからすべての画像を削除

Sub DeleteAllPics()
'Updateby Extendoffice
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

4。次にF5キーを押してこのコードを実行すると、アクティブなワークシートにあるすべての画像が一括で削除されます。

セル範囲内からのみ画像を削除する必要がある場合は、以下の簡単なコードが役立ちます。

1。ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2。「挿入」>「標準モジュール」をクリックし、以下のマクロを標準モジュールウィンドウに貼り付けます。

VBA コード：セル範囲内の画像を削除

Sub DeletePic()
'Updateby Extendoffice
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("B4:C6")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

注：上記のコードで、B4:C6は画像を削除したいセル範囲です。

3。次に、F5キーを押してこのコードを実行すると、選択した範囲内の画像が一括で削除されます。スクリーンショットをご覧ください：

お使いの環境にKutools for Excelがインストールされており、その図形とオブジェクトの削除機能をご利用の場合、ワークシート、選択した特定のワークシート、またはワークブック全体から画像をすばやく削除できます。

1。Kutools > 削除 > 図形とオブジェクトの削除をクリックしてください。スクリーンショットをご覧ください：

2。図形とオブジェクトの削除ダイアログボックスが表示されたら、削除セクションからPicturesにチェックを入れ、その後、検索対象セクションで画像を削除したい範囲を指定してください。スクリーンショットをご覧ください：

3。次に、OKボタンをクリックすると、指定したワークシート、現在選択中のワークシート、またはワークブック全体からすべての画像が削除されます。