java excel导出图片_Excel | VBA—批量导出图片并重命名

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

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

比如下图:

231fe2d36007dab94cb785f330e23e66.png

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

如下图:

24aa9278c9b9f48eebdf371eac11f394.png

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

4880a7c14805c99619383adff67ae123.png
ebf72022a11ec33358227c250af743f3.png

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

8e3a880669dc690084b1c1a37be45223.gif

如果不知道控件怎么插入,怎么指定宏,请参考Excel | 让“宏”来替你做重复动作 。

---------------------------------

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值