問題
如下工作表,如何將圖片一次導出?
![]()
韓老師從兩個不同的要求來解決這個問題:
一:只導出圖片,不限定圖片命名。
二:導出圖片,同時將圖片按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.