如下工作表，如何將圖片一次導(dǎo)出？

韓老師從兩個(gè)不同的要求來(lái)解決這個(gè)問(wèn)題：

一：只導(dǎo)出圖片，不限定圖片命名。

二：導(dǎo)出圖片，同時(shí)將圖片按B列“名稱(chēng)”重命名。

一：只導(dǎo)出圖片，不限定圖片命名

這種導(dǎo)出方式很簡(jiǎn)單，只要把Excel另存為網(wǎng)頁(yè)格式（*.htm，*html）就可以了。

第一步：

選擇“文件”菜單“另存為”命令，保存類(lèi)型選擇為“網(wǎng)頁(yè)（*.htm，*html）”，保存位置默認(rèn)為與有圖片的Excel文件為同一個(gè)文件夾，如下圖：

這樣，會(huì)在Excel文件所在文件夾中出現(xiàn)一個(gè)與Excel工作簿同名的網(wǎng)頁(yè)與文件夾：

文件夾打開(kāi)，即是導(dǎo)出的所有的圖片：

二：導(dǎo)出圖片，同時(shí)將圖片按B列“名稱(chēng)”重命名

如果導(dǎo)出圖片的同時(shí)，按照某列相應(yīng)行單元格值來(lái)命名，比如本題要求將圖片按B列“名稱(chēng)”重命名，就要用到VBA。

第一步：

在工作表標(biāo)簽上點(diǎn)擊右鍵，選擇“查看代碼”：

在代碼窗口輸入以下程序：

Sub Rename()    On Error Resume Next    MkDir ThisWorkbook.Path & "\圖片"    For Each pic In Shapes        If pic.Type = msoPicture Then            RN = pic.TopLeftCell.Offset(0, -3).Value            pic.Copy            With ActiveSheet.ChartObjects.Add(0, 0, pic.Width, pic.Height).Chart    '創(chuàng)建圖片                .Parent.Select                .Paste                .Export ThisWorkbook.Path & "\圖片\" & RN & ".jpg"                .Parent.Delete            End With        End If    Next    MsgBox "導(dǎo)出圖片完成！"End Sub

如下圖：

點(diǎn)擊工具欄中的運(yùn)行，即可將圖片導(dǎo)出到文件夾：

打開(kāi)文件夾，即是命名后的圖片：

這樣導(dǎo)出的圖片更規(guī)范，文件夾內(nèi)也更整潔干凈。

不過(guò)，利用VBA導(dǎo)出圖片，如果下次還想再次導(dǎo)出圖片，該工作簿必須存為“啟用宏的工作簿”。

有關(guān)圖片處理，請(qǐng)參閱

Excel | 圖片也可以根據(jù)名稱(chēng)自動(dòng)匹配（Excel照相機(jī)的妙用）

Excel | 搞定上千幅圖片重命名

Excel | 將圖片批量導(dǎo)入工作表