Excel | 批量导出图片（excel批量导出图片）

问题

如下工作表，如何将图片一次导出？

韩老师从两个不同的要求来解决这个问题：

一：只导出图片，不限定图片命名。

二：导出图片，同时将图片按B列“名称”重命名。

解决方法

一：只导出图片，不限定图片命名

这种导出方式很简单，只要把Excel另存为网页格式（*.htm，*html）就可以了。

第一步：

选择“文件”菜单“另存为”命令，保存类型选择为“网页（*.htm，*html）”，保存位置默认为与有图片的Excel文件为同一个文件夹，如下图：

这样，会在Excel文件所在文件夹中出现一个与Excel工作簿同名的网页与文件夹：

文件夹打开，即是导出的所有的图片：

二：导出图片，同时将图片按B列“名称”重命名

如果导出图片的同时，按照某列相应行单元格值来命名，比如本题要求将图片按B列“名称”重命名，就要用到VBA。

第一步：

在工作表标签上点击右键，选择“查看代码”：

在代码窗口输入以下程序：

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    '创建图片
                .Parent.Select
                .Paste
                .Export ThisWorkbook.Path & "\图片\" & RN & ".jpg"
                .Parent.Delete
            End With
        End If
    Next
    MsgBox "导出图片完成！"
End Sub

如下图：

点击工具栏中的运行，即可将图片导出到文件夹：

打开文件夹，即是命名后的图片：

这样导出的图片更规范，文件夹内也更整洁干净。

不过，利用VBA导出图片，如果下次还想再次导出图片，该工作簿必须存为“启用宏的工作簿”。