Excelの画像: 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キーを押してこのコードを実行します。[Open]ウィンドウで、挿入したい画像が含まれているフォルダを選択し、挿入したい画像を選んで [Open]ボタンをクリックすると、選択したすべての画像がセルのサイズに基づいて選択範囲に挿入されます。スクリーンショットをご覧ください：

VBAコードに慣れていない場合、ここで強力な機能である「Kutools for Excel」の「Import Pictures（画像のインポート）」を使用できます。この便利な機能を使用すると、複数の画像をセルに簡単に迅速にインポートできます。

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 を使用すると、Match Import Pictures 機能を利用して、画像名に基づいて画像を迅速かつ簡単に挿入できます。

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

2. 表示された「Match Import Picture」ダイアログボックスで、次の操作を行ってください：

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

3. 設定が完了したら、[インポート] ボタンをクリックし、表示された [画像のマッチングインポート] ダイアログで、画像を配置するセルまたはセルのリストを選択してください。スクリーンショットをご覧ください:

4. 次に、「OK」をクリックすると、セルの値と名前が一致するすべての画像が挿入されます。スクリーンショットをご覧ください：

次のVBAコードを適用して、URLのリストに基づいて画像を挿入してください。

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

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

3. [Insert] をクリックし、[Module] を選択して、次のマクロを [Module] ウィンドウに貼り付けます。

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 > 挿入 > パス（URL）から画像を挿入する をクリックします。スクリーンショットをご覧ください：

2. 表示された「パス（URL）から画像を挿入する」ダイアログボックスで、次の操作を設定してください：

• 画像を配置したいURLセルのリストとセル範囲を選択します。
• 画像のサイズを「Picture Size」セクションから必要に応じて指定してください。
• 

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の「パス（URL）から画像を挿入する」機能は、ファイルパスから関連する画像を表示するのにも役立ちます。

1. Kutools をクリックし、 挿入 > パス（URL）から画像を挿入する を選択します。表示されたダイアログボックスで、ファイルパスの範囲、画像出力先の範囲、必要な画像サイズを指定してください。スクリーンショットをご覧ください：

2. オプションの設定が完了したら、[OK] ボタンをクリックすると、画像が選択したセルに一度に挿入されます。スクリーンショットをご覧ください：

ヒント: 時々、下のスクリーンショットに示すように、画像がワークシートのデータ領域と重なることがあります。これは、画像が大きすぎるために発生し、ヘッダーやフッターのセクションボックスに自動的にサイズ変更されないためです。

この問題を解決するには、ヘッダーまたはフッター内の画像のサイズを変更するだけでよいです。次の手順に従って操作してください：

1. 画像が配置されているヘッダーまたはフッターのセクションをクリックし、続いて「デザイン」タブの下にある「図の書式設定」をクリックします。スクリーンショットをご覧ください：

2. [Format Picture] ダイアログボックスの [Size] タブで、ヘッダーまたはフッターのセクションボックスに合わせて画像のサイズを調整してください。スクリーンショットをご覧ください:

3. そして、[OK] をクリックすると、必要な結果が得られます。

1. 背景画像を挿入したいワークシートを開きます。

2. 次に、 ページレイアウト > 背景 をクリックします。スクリーンショットをご覧ください：

3. 表示された「 画像の挿入」ウィンドウで、必要に応じてコンピュータ、ウェブサイト、またはOneDriveから画像を選択してください。スクリーンショットをご覧ください：

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

上記の方法では、挿入した背景画像の透明度を変更することはできません。そのため、背景画像の色が濃い場合、ワークシートのデータを読み取るのが不便になることがあります。このセクションでは、セルの背後に透明な画像を挿入する方法について説明します。

1. [挿入] をクリックし、[図形] を選択して、四角形の図形を選んでください。スクリーンショットをご覧ください：

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

3. 図形を描画した後、リボンに「描画ツール」タブが表示されます。その後、「書式」＞「図形の外枠」＞「外枠なし」をクリックしてください。スクリーンショットをご覧ください：

4. そして、図形を右クリックし、コンテキストメニューから「図形の書式設定」を選択します。スクリーンショットをご覧ください：

5. 展開された「図形の書式設定」ペインで、「塗りつぶしと線」タブの下で、次の操作を行います：

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

6. その後、上記のスクリーンショットに示されているように、画像で塗りつぶされた図形が背景画像のように見えるでしょう。

注意: この種類の背景画像を挿入した後、画像の範囲内にテキストを入力することはできません。

上記の両方の方法にはそれぞれ制限があります。最初の方法では画像の透明度を変更できず、2番目の方法では画像領域内のセルにテキストを入力することができません。これらの問題を解決するために、 Kutools for Excelの「ウォーターマークの挿入」機能がお役に立てます。

1. Kutools > 挿入 > ウォーターマークの挿入 をクリックします。スクリーンショットをご覧ください：

2. 表示された「ウォーターマークの挿入」ダイアログボックスで、「画像ウォーターマーク」を選択し、「画像の選択（P）」ボタンをクリックして挿入したい画像を選択します。その後、画像のスケールを指定し、「浸食」オプションをチェックしてください。スクリーンショットをご覧ください：

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

Excelでは、「図としてコピー」機能を使用して、セルの範囲を画像としてコピーして挿入できます。

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

2. 次に、 [ホーム] → [コピー] → [図としてコピー] をクリックします。スクリーンショットをご覧ください：

3. 表示された「図のコピー」ダイアログで、「形式」セクションから「図」を選択してください。スクリーンショットをご覧ください：

4. 次に、[OK] ボタンをクリックします。これで、Ctrl + V を押すだけで画像をワークブックの任意の場所に貼り付けることができます。

Excelには、選択したデータの写真を撮り、それを画像として貼り付けることができるカメラツールがあります。元のデータが変更されると、コピーされた画像も動的に変更されます。

まず、リボン上にカメラを表示し、その後適用します。

1. 「クイックアクセスツールバーのカスタマイズ」アイコンをクリックし、その後「その他のコマンド」オプションをクリックします。スクリーンショットをご覧ください：

2. 開かれた「Excel のオプション」ダイアログボックスで、次の操作を行ってください：

• 「コマンドの選択元」ドロップダウンから「すべてのコマンド」を選択します。
• 次に、リストボックスから「カメラ」を選択するためにスクロールします。
• そして、[追加]ボタンをクリックして、このツールを[クイックアクセスツールバーのカスタマイズ]に追加します。
• 最後に、[OK] をクリックしてこのダイアログボックスを閉じます。
• 

3. そして、カメラツールがリボンに表示されました。スクリーンショットをご覧ください：

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

5. そして、 カメラツールをクリックしてから、ワークシートに移動し、どこかをクリックすると、データ範囲が以下のデモのように画像として挿入されます。

Kutools for Excel をお持ちの場合、その Resource Library 機能を使用して選択したデータを Resource Library に保存でき、その後は必要に応じて画像やテキストとして自由に利用できます。

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

2. 次に、Kutools > ナビゲーション をクリックします。スクリーンショットをご覧ください：

3. 展開されたナビゲーションペインで、リソースライブラリのアイコンをクリックし、次に「選択したコンテンツをリソースライブラリに追加」のアイコンをクリックします。スクリーンショットをご覧ください：

4. [New Resource Library entry] ダイアログボックスで、この項目の名前を指定し、追加したいグループを選択します。スクリーンショットをご覧ください：

5. その後、「追加」ボタンをクリックして、リソースライブラリペインに追加します。この範囲を画像として挿入したい場合は、画像の位置を決めるためにセルをクリックし、リソースライブラリペインから保存された項目を見つけ、「挿入形式」のドロップダウンリストから「画像（EMF）」を選択するだけです。すると、データ範囲がシートに画像として挿入されます。スクリーンショットをご覧ください：

通常、Excelでは動的な名前付き範囲を作成でき、その後、リンクされた画像を使用してExcelでこのタスクを解決できます。

1. まず、製品名と関連画像を含む2つの列を作成する必要があります。スクリーンショットをご覧ください：

2. 次に、セルの値用のドロップダウンリストを作成してください。ドロップダウンリストを出力するセルをクリックし、次に「データ」＞「データの入力規則」＞「データの入力規則」をクリックします。スクリーンショットをご覧ください：

3. 表示されたデータの入力規則ダイアログボックスで、 設定タブの下にある 許可ドロップダウンからリストを選択し、その後ソーステキストボックスからドロップダウンリストを作成したいセルを選択してください。スクリーンショットをご覧ください：

4. 「 OK」をクリックすると、セルの値を持つドロップダウンリストが作成されます。ドロップダウンリストから1つの項目を選択してください。スクリーンショットをご覧ください：

5. 次に、[数式] > [名前の定義] をクリックします。スクリーンショットをご覧ください：

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

• 「myimage」という名前を「名前」テキストボックスに入力します。
• 次に、この数式をコピーして貼り付けます： =INDEX(Sheet11!$A$2:$B$6,MATCH(Sheet11!$E$2,Sheet11!$A$2:$A$6,0),2) 「Refers to」テキストボックスに。

  

  注: 上記の数式では:

  • 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の「Picture Drop-down List」です。この実用的なツールを使用すれば、数回のクリックだけで複数のドロップダウンリストとその関連画像を作成できます。

1. まず、ワークシートに製品名と関連画像を含む2つの列を作成する必要があります。

2. 次に、Kutools > ドロップダウンリスト > 画像付きドロップダウンリストの作成 をクリックします。スクリーンショットをご覧ください：

3. 『画像付きドロップダウンリスト』ダイアログボックスで、セルの値と画像の列をすでに作成している場合、手順1は無視し、元のデータと画像の範囲、および出力先の範囲を選択してください。スクリーンショットをご覧ください：

4. そして、「OK」ボタンをクリックすると、画像付きのドロップダウンリストが選択したセルに作成され、ドロップダウンセルから項目を選択すると、その対応する画像がすぐに表示されます。以下のデモをご覧ください：

通常、[名前を付けて保存] 機能を使用して、ワークブック内のすべての画像を保存できます。次の手順で行ってください。

1. [ファイル] をクリックし、[名前を付けて保存] を選択します。[名前を付けて保存] ウィンドウで、エクスポートされたファイルを保存するフォルダを指定し、 [保存形式] のドロップダウンリストから [Web ページ(*.htm;*.html)] を選択してください。スクリーンショットをご覧ください:

2. そして 保存 ボタンをクリックし、指定されたフォルダに移動すると、2つのファイルが表示されます。1つはHTML形式のファイルで、もう1つはワークブック内の画像、グラフ、その他のオブジェクトを含むフォルダです。スクリーンショットをご覧ください：

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

注: この「名前を付けて保存」機能を使用すると、各画像が2つずつ保存され、1つは小さく、もう1つは大きくなります。必要に応じて高解像度の画像を保存できます。

Excelファイルからすべての画像を保存するために、ファイルの拡張子をRARに変更することもできます。次の手順で行ってください：

1. 以下のスクリーンショットに示すように、ファイル拡張子 xlsx を rar に変更します。

2. 次に、ファイルを解凍すると、フォルダ内に3つのフォルダと1つのファイルが表示されます。スクリーンショットをご覧ください：

3. その後、 xlフォルダをクリックして開き、続いてmediaフォルダを開くと、すべての画像が重複なくここに保存されているのが確認できます。スクリーンショットをご覧ください：

Kutools for Excel をお持ちの場合、Export Graphics 機能を使用して、必要な画像形式に特定のオブジェクト（例：画像、グラフ、図形）を迅速にエクスポートできます。

1. Kutools Plus をクリックし、[インポート/エクスポート] → [チャートのエクスポート] の順に選択します。スクリーンショットをご覧ください:

2. 「グラフのエクスポート」ダイアログボックスで、次の操作を行います：

• 「タイプ」ドロップダウンリストから「画像」オプションを選択します。
• エクスポートする画像を保存するフォルダを指定します。
• 次に、「エクスポート形式」のドロップダウンリストをクリックして、画像用の形式を1つ選択します。
• 

3. 最後に、[ OK] ボタンをクリックすると、現在のブック内のすべての画像が指定したフォルダに保存されます。スクリーンショットをご覧ください:

現在のワークシートから画像を削除するには、以下のVBAコードが役立ちます。次の手順で行ってください：

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

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

3. [Insert] をクリックし、[Module] を選択して、次のマクロを [Module] ウィンドウに貼り付けます。

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 を使用すると、Delete Illustrations & Objects 機能により、ワークシート、選択した複数のシート、またはブック全体から画像を迅速に削除できます。

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

2. 開かれた「イラストとオブジェクトの削除」ダイアログボックスで、「削除」セクションの「画像」にチェックを入れ、その後 「検索対象」セクションで画像を削除したい範囲を指定します。スクリーンショットをご覧ください：

3. その後、「OK」ボタンをクリックすると、指定したとおりにワークシート、選択したワークシート、またはブック全体からすべての画像が削除されます。