EXCEL 实现批量导出图片
时间:2022-05-02 13:58:09
Sub ExportPictures()
Dim MyShp As Shape
Dim Filename As String
For Each MyShp In Sheet1.Shapes
If MyShp.Type = msoPicture Then
Filename = ThisWorkbook.Path & "\" & MyShp.Name & ".gif"
MyShp.Copy
With Sheet1.ChartObjects.Add(0, 0, MyShp.Width, MyShp.Height).Chart
.Paste
.Export Filename
.Parent.Delete
End With
End If
Next
Set MyShp = Nothing
End Sub
标签:上一篇,下一篇,另存为,导出,Excel函数
0
投稿
猜你喜欢
Word中使用菜单完成行距设置的技巧
2022-05-23 06:39:31
在Word 2007中如何并排查看窗口
2023-12-10 14:59:28
word文档为什么右边会少几列
2023-11-11 14:13:55
Win10多任务窗口怎么使用
2023-11-27 14:45:33
Excel中自动隐藏值为0的单元格
2022-12-06 03:11:16
Win10系统提示硬件设置已更改是什么原因?Win10系统提示硬件设置已更改解决方法
2023-08-07 12:03:20
word中如何删除个人信息及编辑时间
2022-06-22 05:33:00
Excel快速录入数据技巧:巧用excel占位符快速输入部分相同的数据
2023-04-06 20:33:26
打开word文档出现错误:“word无法启动转换器”
2023-12-06 03:22:43
教您把word文档直接转换成ppt文档的方法
2022-11-02 02:58:07
如何在Word文档中添加上水印?Word文档添加水印方法介绍
2023-12-05 09:25:48
Win10记事本有什么作用?Win10记事本使用方法分享
2023-11-24 04:58:49
Windows10有哪些隐藏功能你知道吗?带你解锁Windows10的隐藏功能
2023-11-18 16:19:37
wps怎么添加ppt背景
2023-06-04 20:03:55
win10版本信息怎么修改
2023-11-08 09:41:24
excel如何制作南丁格尔玫瑰图
2023-11-09 15:10:13
Excel中如何添加自定义图表
2023-08-17 20:59:40
Excel快速提取单元格中的百分数
2023-11-10 12:08:06
word批注看不到怎么办 word看不到批注的解决方法
2022-12-07 10:00:16
Win10电脑不停的安装一些垃圾软件怎么解决?
2022-09-06 20:23:39