私たちのほとんどは、コンピューターに保存されている画像をワークシートに挿入するのは簡単です。 このようにしてください：

1。 ワークシートで、画像を挿入する場所をクリックします。

2。 次に、をクリックします。 インセット > ピクチャー > この装置、スクリーンショットを参照してください：

3。 飛び出した 画像を挿入 ウィンドウで、写真が含まれているフォルダを開き、を押し続けます Ctrlキー キーを押して、挿入する画像を選択します。スクリーンショットを参照してください。

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

Excel 2013以降のバージョンを使用している場合は、WebまたはOneDriveから画像を挿入できます。次のようにしてください。

1。 ワークシートで、画像を挿入する場所をクリックします。

2。 次に、をクリックします。 インセット > ピクチャー > オンライン写真、スクリーンショットを参照してください：

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

4。 次に、必要な写真を選択して、をクリックします インセット ボタン。 写真を挿入した後、必要な位置に写真のサイズを変更または調整してください。

次のVBAコードは、セルサイズに基づいて複数の画像をセルに挿入するのに役立ちます。 このようにしてください：

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

2。 次に、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュール 窓。

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コードに慣れていない場合は、ここで電源機能を使用できます– 写真をインポートする of Kutools for Excel。 この便利な機能を使用すると、複数の画像をセルにすばやく簡単にインポートできます。

インストールした後 Kutools for Excel、次の手順で実行してください。

1に設定します。 OK をクリックします。 クツールズプラス > インポート・エクスポート > 写真をインポートする、スクリーンショットを参照してください：

2。 飛び出した 写真をインポートする ダイアログで、次の操作を行ってください。

• [インポート順序]ドロップダウンリストから画像の順序を指定します。選択できます セルの後にセルを垂直に塗りつぶす or セルの後にセルを水平方向に塗りつぶす;
• 次に、をクリックします。 Add ボタンをクリックして画像ファイルまたはフォルダを選択し、画像をに追加します 写真リスト;
• クリック インポートサイズ ボタン、で 画像サイズのインポート ダイアログボックスで 一致するセルサイズ オプションを選択します。
• 

3。 設定終了後、をクリックしてください インポート ボタン、そして今、別の 写真をインポートする がポップアウトされたら、画像をインポートする宛先セルを指定します。スクリーンショットを参照してください。

4。 次に、をクリックします。 OK ボタンをクリックすると、以下のスクリーンショットに示すように、選択したすべての画像が特定のセルのサイズに一致するように挿入されています。

次のVBAコードは、名前に一致する複数の画像をすばやく挿入するのに役立ちます。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インサt> モジュール、次のマクロをに貼り付けます モジュール 窓。

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

Note：上記のコードでは、スクリプト内で画像の高さと幅を変更できます。.ShapeRange.Height = 60"、".ShapeRange.Width = 60」を必要に応じて。

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

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

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

6。 最後に、 OK、および画像は名前に基づいてセルに一度に挿入されています。スクリーンショットを参照してください。

あなたが持っている場合 Kutools for Excelそのと インポート画像を一致させる この機能を使用すると、画像名に基づいて画像をすばやく簡単に挿入できます。

インストールした後 Kutools for Excel、次のようにしてください。

1に設定します。 OK をクリックします。 クツールズプラス > インポート・エクスポート > インポート画像を一致させる、スクリーンショットを参照してください：

2。 飛び出した インポート画像に一致 ダイアログボックスで、次の操作を行ってください。

• [インポート順序]ドロップダウンリストから画像の順序を指定します。選択できます セルの後にセルを垂直に塗りつぶす or セルの後にセルを水平方向に塗りつぶす;
• 次に、から 一致範囲 テキストボックスで、画像を挿入する画像名を選択します。
• 次に、をクリックします Add ボタンをクリックして画像ファイルまたはフォルダを選択し、画像をに追加します 写真リスト;
• 次に、画像サイズを指定する必要があります。 クリックしてください インポートサイズ ボタン、で 画像サイズのインポート ダイアログボックスで、必要に応じてXNUMXつの画像サイズを選択します。
• 

3。 設定終了後、をクリックしてください インポート ボタンをクリックして、XNUMXつのセルまたはセルのリストを選択し、ポップアウトされた画像から画像を見つけます インポート画像を一致させる ダイアログ、スクリーンショットを参照してください：

4。 次に、をクリックします。 OK、およびセルの値と一致する名前のすべての画像が挿入されています。スクリーンショットを参照してください。

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

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

2。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュール 窓。

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からすばやく簡単に抽出されます。

インストールした後 Kutools for Excel、次の手順で実行してください。

1に設定します。 OK をクリックします。 クツール > インセット > パス（URL）から画像を挿入、スクリーンショットを参照してください：

2。 飛び出した パス（URL）から画像を挿入 ダイアログボックスで、次の操作を設定してください。

• URLセルのリストと、画像を配置するセルの範囲を選択します。
• から必要に応じて画像のサイズを指定します 画像サイズ のセクションから無料でダウンロードできます。
• 

3。 次に、をクリックします Ok ボタンをクリックすると、すべての画像がURLから抽出されます。スクリーンショットを参照してください。

次のVBAコードを適用して、画像ファイルのパスに基づいて画像を挿入できます。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次に次のコードをに貼り付けます モジュール 窓。

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

インストールした後 Kutools for Excel、次のようにしてください。

1に設定します。 OK をクリックします。 クツール > インセット > パス（URL）から画像を挿入、ポップアウトされたダイアログボックスで、ファイルパスの範囲、画像を出力する範囲、必要に応じて画像のサイズを指定してください。スクリーンショットを参照してください。

2。 オプションを設定したら、をクリックします Ok ボタンをクリックすると、画像が選択したセルに一度に挿入されます。スクリーンショットを参照してください。

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

この問題を解決するには、ヘッダーまたはフッターの画像のサイズを変更する必要があります。次の手順を実行してください。

1。 画像が配置されているヘッダーまたはフッターセクションをクリックしてから、 フォーマットピクチャ 下 設計 タブ、スクリーンショットを参照してください：

2。 の中に フォーマットピクチャ ダイアログボックス、下 サイズ タブで、ヘッダーまたはフッターのセクションボックスに合うように画像のサイズを調整してください。スクリーンショットを参照してください。

3。 次に、をクリックします OK、必要に応じて結果が得られます。

1。 背景画像を挿入するワークシートを開きます。

2。 次に、をクリックします。 ページレイアウト > 経歴、スクリーンショットを参照してください：

3。 飛び出した 写真を挿入する ウィンドウでは、必要に応じてコンピューター、Webサイト、またはOneDriveからXNUMXつの画像を選択してください。スクリーンショットを参照してください。

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

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

1に設定します。 OK をクリックします。 インセット > 形状、および長方形の形状を選択します。スクリーンショットを参照してください。

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

3。 形を描いた後、 描画ツール リボンにタブが表示されたら、 フォーマット > 形状の概要 > アウトラインなし、スクリーンショットを参照してください：

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

5。 展開された 書式の書式 ペイン、下 塗りつぶしと線 タブで、次の操作を実行します。

• 下 埋める セクション、選択 画像またはテクスチャの塗りつぶし オプション;
• インセット タブの 画像ソース、挿入する画像をXNUMXつ選択します。
• 次に、画像の透明度を必要に応じて調整します。 透明度yセクション。
• 

6。 次に、上のスクリーンショットに示すように、画像で埋められた形状が背景画像のように見えることがわかります。

Note：このタイプの背景画像を挿入した後は、画像範囲内にテキストを入力することはできません。

上記の両方の方法には独自の制限があります。最初の方法では画像の透明度を変更できません。XNUMX番目の方法では画像領域内のセルにテキストを入力できません。 これらの問題を解決するには、 Kutools for Excelさん 透かしを挿入 機能はあなたに有利に働くことができます。

インストールした後 Kutools for Excel、次のようにしてください。

1に設定します。 OK をクリックします。 クツール > インセット > 透かしを挿入、スクリーンショットを参照してください：

2。 飛び出した 透かしを挿入 ダイアログボックスで 画像透かし、[OK]をクリックします 画像を選択 ボタンをクリックして、挿入する画像をXNUMXつ選択し、画像のスケールを指定して、[ウォッシュアウト]オプションをオンにします。スクリーンショットを参照してください。

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

Excelでは、 写真としてコピー セルの範囲を画像としてコピーして挿入する機能。

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

2。 次に、をクリックします。 ホーム > コピー > 写真としてコピー、スクリーンショットを参照してください：

3。 飛び出した 写真をコピーする ダイアログ、選択 画像 フォーマット セクション、スクリーンショットを参照してください：

4。 次に、をクリックします。 OK ボタン、今、あなたはただ押す必要があります Ctrlキー+ V 画像をブックの任意の場所に貼り付けます。

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

まず、を表示する必要があります カメラ リボンに貼ってから塗ってください。

1に設定します。 OK をクリックします。 クイックアクセスツールバーをカスタマイズする アイコンをクリックし、 その他のコマンド オプション、スクリーンショットを参照してください：

2。 オープンで Excelのオプション ダイアログボックスで、次の操作を行ってください。

• 選択 すべてのコマンド からのコマンドを選択 落ちる;
• 次に、スクロールして選択します カメラ リストボックスから;
• 次に、をクリックします Add このツールをに追加するボタン クイックアクセスツールバーをカスタマイズする;
• 最後に、 OK このダイアログボックスを閉じます。
• 

3。 そしてその カメラ ツールがリボンに表示されています。スクリーンショットを参照してください。

4。 次に、画像が必要なセルの範囲を選択します。

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

あなたが持っている場合 Kutools for Excelそのと リソースライブラリ 機能、あなたは選択したデータをに保存することができます リソースライブラリ、そしてあなたが好きなように将来のための画像やテキストとしてそれを使用してください。

インストールした後 Kutools for Excel、次のようにしてください。

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

2。 次に、をクリックします。 クツール > ナビゲーション、スクリーンショットを参照してください：

3。 展開された ナビゲーション ペインをクリック リソースライブラリ アイコンをクリックし、 選択したコンテンツをリソースライブラリに追加します アイコン、スクリーンショットを参照してください：

4。 の中に 新しいリソースライブラリエントリ ダイアログボックスで、このアイテムの名前を指定してから、追加するグループを選択します。 スクリーンショットを参照してください：

5。 次に、をクリックします。 Add 追加するボタン リソースライブラリ ペイン。 この範囲を画像として挿入する場合は、セルをクリックして画像を見つけ、保存されたアイテムを リソースライブラリ ペインをクリックし、 として挿入 > 写真（EMF） アイテムのドロップダウンリストから。 また、データ範囲は画像としてシートに挿入されます。スクリーンショットを参照してください。

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

1。 まず、製品名と相対画像を含むXNUMXつの列を作成する必要があります。スクリーンショットを参照してください。

2。 次に、セル値のドロップダウンリストを作成してください。 セルをクリックしてドロップダウンリストを出力し、[ 且つ > データ検証 > データ検証、スクリーンショットを参照してください：

3。 飛び出した データ検証 ダイアログボックス、下 設定 タブを選択 リスト 次を許可します。 ドロップダウンして、ドロップダウンリストを作成するセルを ソース テキストボックス、スクリーンショットを参照：

4に設定します。 OK をクリックします。 OK、セル値を含むドロップダウンリストが作成されたら、ドロップダウンリストからXNUMXつのアイテムを選択します。スクリーンショットを参照してください。

5。 次に、をクリックします。 式 > 名前を定義する、スクリーンショットを参照してください：

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

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

Note：上記の式では：

• Sheet11！$ A $ 2：$ B $ 6：使用する値と画像を含むワークシートと範囲です。
• Sheet11！$ E $ 2：ドロップダウンリストを作成したワークシート内のセルです。
• Sheet11！$ A $ 2：$ A $ 6：は、ドロップダウンリストに基づいて作成されたセルのリストです。
• 可変数 2 画像を含む列番号です。 画像が列Cにある場合は、3を入力する必要があります。

7。 次に、をクリックします OK ボタンをクリックし、E2のセル値に基づいて、元の範囲からセルF2に対応する画像をコピーして貼り付けてください。スクリーンショットを参照してください。

8。 次に、セルF2で画像を選択し、この数式を入力してください = myimage (マイイメージ 手順6）で数式バーに作成した範囲名です。スクリーンショットを参照してください。

9。 数式を入力したら、を押します 入力します キーを押すと、ドロップダウンリストからXNUMXつのアイテムを選択すると、その相対的な画像がすぐに表示されます。 スクリーンショットを参照してください：

上記の方法は私たちのほとんどにとって難しいかもしれません、ここでは、便利な機能を紹介します– 画像のドロップダウンリスト of Kutools for Excel、この便利なツールを使用すると、数回クリックするだけで、相対的な画像を含む複数のドロップダウンリストを作成できます。

インストールした後 Kutools for Excel、次の手順で実行してください。

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

2。 次に、をクリックします クツール > ドロップダウンリスト > 画像のドロップダウンリスト、スクリーンショットを参照してください：

3。 の中に 画像のドロップダウンリスト ダイアログボックスで、セルの値と画像の列を作成した場合は、手順1を無視してから、元のデータと画像の範囲、および出力範囲を選択してください。スクリーンショットを参照してください。

4。 次に、をクリックします Ok ボタンをクリックすると、選択したセルに画像付きのドロップダウンリストが作成され、ドロップダウンセルからアイテムを選択すると、対応する画像がすぐに表示されます。以下のデモを参照してください。

通常は、 名前を付けて保存 ブックからすべての画像を保存する機能は、次のようにしてください。

1に設定します。 OK をクリックします。 File > 名前を付けて保存、で 名前を付けて保存 ウィンドウで、エクスポートされたファイルを配置するフォルダを指定して、 Webページ（*。htm; *。html） 名前を付けて保存 ドロップダウンリストを入力します。スクリーンショットを参照してください。

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

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

Note：これを使って 名前を付けて保存 この機能では、各画像をXNUMX回取得し、XNUMXつは小さく、もうXNUMXつは大きくなるため、必要に応じて高解像度の画像を保存できます。

Excelファイルからすべての画像を保存するには、ファイル拡張子をRARに変更することもできます。 このようにしてください：

1。 ファイル拡張子を変更する XLSX 〜へ RAR 以下のスクリーンショットのように：

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

3。 次に、をクリックして開きます xl フォルダを開き、 メディア フォルダ、すべての画像が重複せずにここに保存されていることがわかります。スクリーンショットを参照してください。

あなたが持っている場合 Kutools for Excelそのと グラフィックのエクスポート この機能を使用すると、必要に応じて、画像、グラフ、図形などの特定のオブジェクトを画像形式にすばやくエクスポートできます。

インストールした後 Kutools for Excel、次の手順で実行してください。

1に設定します。 OK をクリックします。 クツールズプラス > インポート・エクスポート > グラフィックのエクスポート、スクリーンショットを参照してください：

2。 の中に グラフィックのエクスポート ダイアログボックスで、次の操作を実行します。

• 選択する ピクチャー オプションから 種類 ドロップダウンリスト;
• エクスポートする画像を保存するフォルダーを指定します。
• 次に、からドロップダウンリストをクリックします エクスポート形式 写真のフォーマットをXNUMXつ選択します。
• 

3。 最後に、 Ok ボタンをクリックすると、現在のワークブックのすべての画像が指定したフォルダーに保存されます。スクリーンショットを参照してください。

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

1。 削除する画像を含むワークシートをアクティブにします。

2。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュール 窓。

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 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュール 窓。

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

Note：上記のコードでは、 B4：C6 画像を削除する範囲です。

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

あなたが持っている場合 Kutools for Excelそのと イラストとオブジェクトを削除する この機能を使用すると、ワークシート、選択したシート、またはワークブック全体から画像をすばやく削除できます。

インストールした後 Kutools for Excel、次の手順で実行してください。

1に設定します。 OK をクリックします。 クツール > 削除 > イラストとオブジェクトを削除する、スクリーンショットを参照してください：

2。 オープンで イラストとオブジェクトを削除する ダイアログボックス、チェック ピクチャー 削除 セクションをクリックし、下から画像を削除するスコープを指定します 覗く セクション、スクリーンショットを参照してください：

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