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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

2.2) 保存パス セクションで、「 」ボタンをクリックして、エクスポートした画像を保存するフォルダを選択します；

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

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

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

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

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

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

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

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

注意:

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

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

関連記事:

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