小兔网

Excel如何批量导出图片并重命名

说明
分类：计算机
如何将工作表的图片批量导出，并重命名为某列对应行的内容？

比如下图：
202106140931473096770
要将工作表中的图片批量导出，并且重新命名为B列对应的名称。
VBA实现
在VBA代码窗口中输入如下代码：
Sub Rename()    Application.ScreenUpdating = False    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 "导出图片完成！"    Application.ScreenUpdating = TrueEnd Sub
如下图：
202106140931522242091
在工作表中添加表单控件，右键指定宏Rename，如下两图：
202106140931551452472
202106140931568275613
点击控件，即可实现在该EXCEL文档所在的文件夹中新建一个“图片”文件夹，所以导出的图片实现重命名并保存在该“图片”文件夹中。如下图：

202106140932059761734

额外资源

感谢您阅读excelxue的重要Excel功能指南！通过花时间学习和掌握这些功能，您将大大改善财务模型。要了解更多信息，请查看以下其他excelxue资源：

Excel函数知识

Excel数据分析

Excel案列展示


  • 我在这里:  
  • 首页 ▶
  • 计算机 ▶
  • Excel如何批量导出图片并重命名