Excelからすべての画像を一度にエクスポートするにはどうすればよいですか？

Author Xiaoyang Last modified 2025-08-26

ワークブック内に多数の画像があり、それらを特定のフォルダに一括で保存したい場合、通常は手動で一つずつコピーして貼り付ける必要がありますが、この繰り返し作業は非常に時間がかかります。ここでは、この作業を解決するためのいくつかのヒントをご紹介します。

「名前を付けて保存」機能を使用してExcelからすべての画像を一度にエクスポートする

素晴らしいツールを使ってExcelからすべての画像を簡単に一度にエクスポートする

隣接セルの値で画像をエクスポートして名前を変更する

「名前を付けて保存」機能を使用してExcelからすべての画像を一度にエクスポートする

Excelに組み込まれた「 名前を付けて保存」機能を使用すると、ワークブックをWebページとして保存して、チャート、図形、その他のオブジェクトなど、すべての画像をフォルダに保存できます。以下の手順に従ってください。

1. 保存したい画像があるワークブックを開きます。[ファイル] > [名前を付けて保存] > [参照] をクリックします。

Click File > Save As > Browse

2. 「 名前を付けて保存」ダイアログボックスで、次の操作を行います：

2.1) エクスポートされた画像を保存するフォルダを選択します；

2.2) 「保存形式」ドロップダウンリストから「Web ページ」を選択します；

2.3) [保存] ボタンをクリックします。

specify the options in the Save As dialog box

3. 表示されるMicrosoft Excelダイアログボックスで、[はい] ボタンをクリックします。

click the Yes button

4. エクスポートされたファイルが保存されているフォルダを開くと、フォルダとHTML形式のファイルが表示されます。ワークブック内のすべての画像、チャート、図形、またはオブジェクトがこのフォルダに保存されています。

All pictures in the workbook including charts, shapes or objects are saved in the folder

5. 必要な画像はフォルダに残し、不要なものは削除することができます。

素晴らしいツールを使ってExcelからすべての画像を簡単に一度にエクスポートする

上記の方法では、ワークブック内のすべてのオブジェクトが抽出されますが、必要のないものもあるかもしれません。Kutools for Excelがインストールされている場合、その「チャートのエクスポート」機能を使用して必要な画像のみを保存できるかもしれません。

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

1. [Kutools Plus] > [ インポート/エクスポート] > [チャートのエクスポート] をクリックします：

click Export Graphics feature of kutools

2. 「チャートのエクスポート」ダイアログボックスで、次のように設定してください：

2.1) 「タイプ」ドロップダウンリストから「画像」を選択します；

ヒント: デフォルトでは、現在のワークブック内のすべてのグラフ、画像、および図形がリストされます。

2.2) 保存パス セクションで、「

」ボタンをクリックして、エクスポートした画像を保存するフォルダを選択します；

2.3) 「エクスポート形式」ドロップダウンリストで、エクスポートする画像の形式を選択します；

2.4) [OK] をクリックします。

specify the options in the dialog box

3. その後、エクスポートに成功した画像の数を知らせるダイアログボックスが表示されますので、[OK] ボタンをクリックします。

a dialog box pops up to tell how many pictures are exported

これで、目的のフォルダに移動してエクスポートされた画像を確認できます。

この機能についてさらに詳しくは、[ チャートのエクスポート] をクリックしてください。

Kutools for Excel を適用する前に、まずダウンロードしてインストールしてください。

隣接セルの値で画像をエクスポートして名前を変更する

下のスクリーンショットに示すように、果物の名前のリストを含む列と、対応する果物の画像を含む列があります。これらの画像をエクスポートし、対応する果物の名前で自動的に名前を付けるには、このセクションのVBAコードを試してみてください。

Export images and rename them with the adjacent cell values

1. 画像をエクスポートしたいワークシートで、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、[挿入] > [モジュール] をクリックします。そして、次のVBAをモジュールウィンドウにコピーします。

VBAコード: 列内の画像をエクスポートして自動的に名前を付ける

Sub ExportImages_ExtendOffice()
'Updated by Extendoffice 20220308
    Dim xStrPath As String
    Dim xStrImgName As String
    Dim xImg As Shape
    Dim xObjChar As ChartObject
    Dim xFD As FileDialog
    Set xFD = Application.FileDialog(msoFileDialogFolderPicker)
    xFD.Title = "Please select a folder to save the pictures" & " - ExtendOffice"
    If xFD.Show = -1 Then
       xStrPath = xFD.SelectedItems.Item(1) & "\"
    Else
        Exit Sub
    End If
    
    On Error Resume Next
    For Each xImg In ActiveSheet.Shapes
        If xImg.TopLeftCell.Column = 2 Then
        xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value
        If xStrImgName <> "" Then
            xImg.Select
            
            Selection.Copy
            Set xObjChar = ActiveSheet.ChartObjects.Add(0, 0, xImg.Width, xImg.Height)
            With xObjChar
                .Border.LineStyle = xlLineStyleNone
                .Activate
                ActiveChart.Paste
                .Chart.Export xStrPath & xStrImgName & ".png"
                .Delete
            End With
        End If
        End If
    Next
End Sub

copy and paste the code into the module

注意:

1) 「If xImg.TopLeftCell.Column = 2 Then」という行の数字「2」は、画像をエクスポートしたい列番号を表しています；

2) 「xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value」という行の数字「 -1」は、左隣のセルの値で画像に名前を付けることを示しています。

3. コードを実行するためにF5キーを押します。開いたウィンドウで、画像を保存するフォルダを選択して[OK] をクリックします。

select a folder to save the pictures

指定された列内のすべての画像がエクスポートされ、指定した隣接セルの値で自動的に名前が付けられます。

all pictures in a specified column are exported and automatically named with the adjacent cell values

Excelでチャートをグラフィックとしてエクスポートするにはどうすればよいですか？

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数