Excel | VBA—批量导出图片并重命名

发布时间：2020年09月27日 07:07:34 来源：点击量：495

【摘要】一位粉丝朋友问了一个问题：如何将工作表的图片批量导出，并重命名为某列对应行的内容？比如下图：要将工作表中的图片批量导出，并且重新命

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

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

比如下图：

Excel | VBA—批量导出图片并重命名

要将工作表中的图片批量导出，并且重新命名为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

如下图：

Excel | VBA—批量导出图片并重命名