Excel からすべての画像を一度にエクスポートする方法は?
ワークブック内に多数の画像があり、それらを特定のフォルダーに一括で保存したい場合、通常は1 枚ずつ手作業でコピー&ペーストして保存することになりますが、この繰り返し作業は非常に時間がかかります。そこで、この作業を効率化するための実用的なヒントをいくつかご紹介します。
Excel の「名前を付けて保存」機能で一度にすべての画像をエクスポートする
Excel に標準搭載されている名前を付けて保存機能を使えば、チャートや図形など、他のオブジェクトを含むすべての画像をフォルダーに保存できます。以下の手順に従ってください。ウェブページ
1。保存したい画像を含むワークブックを開き、ファイル>名前を付けて保存>参照をクリックします。

2。「名前を付けて保存」ダイアログボックスで、次の操作を行ってください。

3。表示されたMicrosoft Excelダイアログボックスで、はいボタンをクリックしてください。

4。エクスポートされたファイルが保存されたフォルダーを開くと、その中にサブフォルダーと HTML 形式のファイルリストが含まれており、ワークブック内のチャートや図形などすべての画像がこのフォルダーに保存されています。

5。フォルダー内から不要な画像を削除し、必要なものだけを残すことができます。
素晴らしいツールでExcel からすべての画像を簡単に一度にエクスポート
上記の方法ではワークブック内のすべてのオブジェクトが抽出されるため、不要なものも含まれてしまう可能性があります。Excel にKutools for Excelがインストールされている場合は、そのチャートのエクスポート機能を使えば、必要な画像だけを簡単に保存できます。
1。KUTOOLS PLUS>インポート/エクスポート>チャートのエクスポート:

2。チャートのエクスポートダイアログボックスで、次のように設定します。
ボタンをクリックして、エクスポートした画像の保存先をフォルダーを選択します。
3。エクスポートに成功した画像の枚数を知らせるダイアログボックスが表示されますので、OKボタンをクリックしてください。

これで、保存先フォルダーに移動して画像をエクスポートを確認できます。
この機能の詳細については、チャートのエクスポートをクリックしてください。
Kutools for Excelを適用する前に、まずダウンロードしてインストールしてください。
画像をエクスポートし、隣接するセルの値でファイル名を自動設定する
下のスクリーンショットのように、果物の名前リストと対応する画像がそれぞれ別の列に配置されています。これらの画像をエクスポートし、対応する果物の名前で自動的にファイル名を付けるには、このセクションの VBA コードをお試しください。

1。画像をエクスポートしたいワークシートで、Alt+F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。
2。Microsoft Visual Basic for Applicationsウィンドウで、挿入>標準モジュールをクリックし、表示されたモジュールウィンドウに次の VBA コードをコピー&ペーストしてください。
VBA コード:1 列の画像をエクスポートし、自動的にファイル名を設定する
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 
注:
3。F5キーを押してコードを実行します。開いたウィンドウで、画像の保存先フォルダーを選択し、OK

すると、指定した列のすべての画像がエクスポートされ、事前に設定したとおりに隣接するセルの値に基づいて自動的にファイル名が付けられます。

関連記事:
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得