浙江
問題
如下工作表，如何將圖片一次導出？
韓老師從兩個不同的要求來解決這個問題：
一：只導出圖片，不限定圖片命名。
二：導出圖片，同時將圖片按B列“名稱”重命名。
解決方法
一：只導出圖片，不限定圖片命名
這種導出方式很簡單，只要把Excel另存為網頁格式（*.htm，*html）就可以了。
選擇“文件”菜單“另存為”命令，保存類型選擇為“網頁（*.htm，*html）”，保存位置默認為與有圖片的Excel文件為同一個文件夾，如下圖：
這樣，會在Excel文件所在文件夾中出現一個與Excel工作簿同名的網頁與文件夾：
文件夾打開，即是導出的所有的圖片：
二：導出圖片，同時將圖片按B列“名稱”重命名
如果導出圖片的同時，按照某列相應行單元格值來命名，比如本題要求將圖片按B列“名稱”重命名，就要用到VBA。
在工作表標簽上點擊右鍵，選擇“查看代碼”：
在代碼窗口輸入以下程序：
Sub Rename()On Error Resume NextMkDir ThisWorkbook.Path & "\圖片"For Each pic In ShapesIf pic.Type = msoPicture ThenRN = pic.TopLeftCell.Offset(0, -3).Valuepic.CopyWith ActiveSheet.ChartObjects.Add(0, 0, pic.Width, pic.Height).Chart '創建圖片.Parent.Select.Paste.Export ThisWorkbook.Path & "\圖片\" & RN & ".jpg".Parent.DeleteEnd WithEnd IfNextMsgBox "導出圖片完成！"End Sub如下圖：
點擊工具欄中的運行，即可將圖片導出到文件夾：
打開文件夾，即是命名后的圖片：
這樣導出的圖片更規范，文件夾內也更整潔干凈。
不過，利用VBA導出圖片，如果下次還想再次導出圖片，該工作簿必須存為“啟用宏的工作簿”。
有關圖片處理，請參閱
特別聲明：以上內容(如有圖片或視頻亦包括在內)為自媒體平臺“網易號”用戶上傳并發布，本平臺僅提供信息存儲服務。
Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.
