一位粉丝朋友问了一个问题：

如何将工作表的图片批量导出，并重命名为某列对应行的内容？

比如下图：

 

要将工作表中的图片批量导出，并且重新命名为B列对应的名称。

VBA实现

在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

如下图：

 

在工作表中添加表单控件，右键指定宏Rename，如下两图：

 

 

点击控件，即可实现在该EXCEL文档所在的文件夹中新建一个“图片”文件夹，所以导出的图片实现重命名并保存在该“图片”文件夹中。如下图：