Note: The other languages of the website are Google-translated. Back to English

如何從Excel一次導出所有圖像?

假設您的工作簿中有很多圖片,並且想一次將它們保存到特定文件夾中,通常您可以手動將圖片一張一張復制粘貼保存,但複製粘貼很耗時反复這樣。 在這裡,我將向您介紹一些解決此工作的技巧。


使用“另存為”功能一次從Excel導出所有圖像

內置 Excel 另存為 功能,您可以將工作簿另存為 網頁 將所有圖片(包括圖表、形狀和其他對象)保存在文件夾中。 請執行以下操作。

1. 打開包含要保存的圖片的工作簿。 點擊 文件 > 另存為 > 瀏覽。

2。 在裡面 另存為 對話框,您需要:

2.1)選擇一個文件夾來保存導出的圖像;
2.2)選擇 網頁 從另存為類型下拉列表中;
2.3)點擊 節省 按鈕。

3.在彈出 Microsoft Excel中 對話框中,單擊 按鈕。

4.打開保存導出文件的文件夾,可以看到裡面列出了一個文件夾和一個HTML格式的文件。 工作簿中的所有圖片,包括圖表、形狀或對像都保存在此文件夾中。

5.可以將需要的圖片保留在文件夾中,不需要的可以刪除


使用出色的工具輕鬆從 Excel 一次導出所有圖像

上述方法將從工作簿中提取所有對象,也許其中一些您不需要。 如果你有 Excel的Kutools 安裝在Excel中 導出圖形 功能可以幫助您只保存您需要的圖片。

安裝後 Excel的Kutools,請執行以下操作:

1。 點擊 Kutools 加 > 進出口 > 導出圖形:

2。 在裡面 導出圖形 對話框,請進行如下配置:

2.1)選擇 圖片 來自 類型 下拉列表;
提示: 默認情況下,列出當前工作簿中的所有圖形,包括圖表、圖片和形狀。
2.2)在 保存目錄 部分,點擊 按鈕選擇一個文件夾來保存您導出的圖片;
2.3)在 導出格式 下拉列表,選擇要導出為的圖像類型;
2.4)點擊 確定。

3.然後會彈出一個對話框告訴你已經成功導出了多少張圖片,點擊 OK 按鈕。

現在您可以轉到目標文件夾並檢查導出的圖像。

請點擊 導出圖形 進一步了解此功能。

申請前 Excel的Kutools首先下載並安裝.


導出圖像並使用相鄰單元格值重命名它們

如下圖所示,有兩列,一列包含水果名稱列表,另一列包含水果的相應圖片。 要導出這些圖像並用相應的水果名稱自動命名它們,您可以嘗試本節中的 VBA 代碼。

1. 在要導出圖片的工作表中,按 其他 + 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

筆記:

1) 號碼 2 在行“如果 xImg.TopLeftCell.Column = 2 那麼” 表示要從中導出圖片的列號;
2) 號碼 -1 在行“xStrImgName = xImg.TopLeftCell.Offset(0, -1).Value” 表示您將使用相鄰左側單元格的值命名圖片。

3。 按 F5 運行代碼的關鍵。 在打開的窗口中,選擇一個文件夾來保存圖片,然後單擊 確定。

然後導出指定列中的所有圖片並自動使用您指定的相鄰單元格值命名。


相關文章:

如何在Excel中將圖表導出為圖形?


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (17)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
真的很有幫助.. :D 感謝您提供這樣的解決方案。
網站主持人對此評論進行了最小化
另存為 HTM 功能非常出色。 一個問題,它複製了我所有的圖像文件。 知道為什麼會這樣嗎?
網站主持人對此評論進行了最小化
謝謝真的很有幫助。
網站主持人對此評論進行了最小化
非常感謝它幫助了我很多
網站主持人對此評論進行了最小化
太好了,如果我想獲取單元格的背景顏色(而不是圖像)並將其保存為以相鄰單元格命名的圖像,那如何輕鬆更改代碼?
網站主持人對此評論進行了最小化
嗨,湯姆,您的意思是將單元格的背景顏色保存為圖像並用相鄰的單元格值命名嗎?很抱歉無法幫助您。
網站主持人對此評論進行了最小化
Bonjour le code VBA m'enregistre des images blanches je ne comprends pas pourquoi。 quelqu'un 一個 une 解決方案?
網站主持人對此評論進行了最小化
你好,蘇菲,
本文中的代碼可以在我的 Excel 中正常運行,如果您不介意,可以在這裡上傳您的 Excel 文件嗎? 因此,我們可以幫助您檢查問題。
或者您可以更清楚、更詳細地描述您的問題。
感謝您!
網站主持人對此評論進行了最小化
你好 skyyang,ich habe seit neulich das gleiche 問題,viele leere *.png dateien。
您要鏈接的文字
bei jedem exportversuch werden andere bilder nicht richtig erfasst。
製造,謝謝
網站主持人對此評論進行了最小化
你好,米蘭博季奇
您使用哪個 Excel 版本?
我試過你工作簿中的代碼,效果很好,你工作簿中的所有圖像都導出到文件夾中,並根據單元格值重命名,見截圖:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-export-images-1.png
網站主持人對此評論進行了最小化
你好 skyyang,它是 office 365。你的代碼在 2 週前工作正常,現在不行了,看截圖。 同時我發現了一些類似的東西,(結合你的),也許你可以將它用於你的代碼。

截圖:
[img]https://drive.google.com/file/d/1vfRlhpyzqg7QNFeYl53mTvNON3gIrFwv/view?usp=sharing[/img]


Sub BilderExportieren()
    Dim shaBild As Shape
    Dim strZielpfad As String
    strZielpfad = "c:\Tuerliste\img3\" '<== Zielpfad entsprechend anpassen!!
    For Each shaBild In ActiveSheet.Shapes
        BildExportShape shaBild, strZielpfad
    Next shaBild
End Sub

Sub BildExportShape(shaBild As Shape, strZiel As String)
    Dim xStrImgName As String
    Dim chDiagramm As ChartObject
    xStrImgName = shaBild.TopLeftCell.Offset(0, -1).Value
    Application.ScreenUpdating = False
    shaBild.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Set chDiagramm = ActiveSheet.ChartObjects.Add(0, 0, shaBild.Width, shaBild.Height)
    With chDiagramm.Chart
        ' erforderlich bei Excel2010, da Diagrammfläche automatisch mit Rahmen erstellt wird
        .Parent.ShapeRange.Line.Visible = msoFalse
        ' bei Excel2016 muss die Diagrammfläche selektiert vor .Paste werden - andernfalls ist das Bild leer
        If Val(Application.Version) = 16 Then .ChartArea.Select
        .Paste
        .Export Filename:=strZiel & xStrImgName & ".png", FilterName:="png"
    End With
    chDiagramm.Delete
    Set chDiagramm = Nothing
    Set shaBild = Nothing
    Application.ScreenUpdating = True
End Sub


還是要謝謝你
米蘭博伊奇
網站主持人對此評論進行了最小化
你好,米蘭博伊奇,
感謝您的代碼,也許它可以在將來幫助其他人。 🙂
網站主持人對此評論進行了最小化
太快了! Όμως το μέγεθος-ανάλυση της εικόνας μικραίνει 。 Υπάρχει τρόπος να διατηρηθεί η αρχική ανάλυση ?
網站主持人對此評論進行了最小化
你好,謝謝你的這篇文章。 當我從導出圖像執行上面的代碼並使用相鄰的單元格值重命名它們時,我收到以下錯誤消息:運行時錯誤“91”:未設置對像變量或塊變量。 當我單擊調試時,它會突出顯示代碼的第 9 行。 你知道為什麼會這樣嗎? 僅供參考,我正在使用適用於 Mac OSX 的 Excel。 謝謝
網站主持人對此評論進行了最小化
我使用的是文章“導出圖像並用相鄰的單元格值重命名它們”部分中給出的代碼。 當我運行這段代碼時,出現以下錯誤:“運行時錯誤‘91’:未設置對像變量或 With 塊變量。”

當我點擊“調試”時,它指向代碼的第 9 行:
xFD.Title = "請選擇保存圖片的文件夾" & " - ExtendOffice"

你有解決辦法嗎? 您的文章是我能找到的唯一解決方案。

我正在使用 Mac 版 Excel。
網站主持人對此評論進行了最小化
你好,迪倫,

抱歉,我們的代碼只適用於 Microsoft Excel,也許您可以在 Microsoft Excel 中嘗試代碼。
感謝您!
網站主持人對此評論進行了最小化
我在 Mac OSX 上使用 Microsoft Excel。
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護