浙江
問題
如下工作表，如何將圖片一次導出？
韓老師從兩個不同的要求來解決這個問題：
一：只導出圖片，不限定圖片命名。
二：導出圖片，同時將圖片按B列“名稱”重命名。
解決方法
一：只導出圖片，不限定圖片命名
這種導出方式很簡單，只要把Excel另存為網(wǎng)頁格式（*.htm，*html）就可以了。
選擇“文件”菜單“另存為”命令，保存類型選擇為“網(wǎng)頁（*.htm，*html）”，保存位置默認為與有圖片的Excel文件為同一個文件夾，如下圖：
這樣，會在Excel文件所在文件夾中出現(xiàn)一個與Excel工作簿同名的網(wǎng)頁與文件夾：
二：導出圖片，同時將圖片按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 '創(chuàng)建圖片.Parent.Select.Paste.Export ThisWorkbook.Path & "\圖片\" & RN & ".jpg".Parent.DeleteEnd WithEnd IfNextMsgBox "導出圖片完成！"End Sub如下圖：
點擊工具欄中的運行，即可將圖片導出到文件夾：
打開文件夾，即是命名后的圖片：
這樣導出的圖片更規(guī)范，文件夾內(nèi)也更整潔干凈。
不過，利用VBA導出圖片，如果下次還想再次導出圖片，該工作簿必須存為“啟用宏的工作簿”。
有關(guān)圖片處理，請參閱
特別聲明：以上內(nèi)容(如有圖片或視頻亦包括在內(nèi))為自媒體平臺“網(wǎng)易號”用戶上傳并發(fā)布，本平臺僅提供信息存儲服務。
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.
