EXCEL 实现批量导出图片

网友投稿 409 2022-12-03

EXCEL 实现批量导出图片

EXCEL 实现批量导出图片

Sub ExportPictures()Dim MyShp As ShapeDim Filename As StringFor Each MyShp In Sheet1.ShapesIf MyShp.Type = msoPicture ThenFilename = ThisWorkbook.Path & "\" & MyShp.Name & ".gif"MyShp.CopyWith Sheet1.ChartObjects.Add(0, 0, MyShp.Width, MyShp.Height).Chart.Paste.Export Filename.Parent.DeleteEnd WithEnd IfNextSet MyShp = NothingEnd Sub

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:利用VBA打印隐藏的excel工作表
下一篇:excel vba Like 作用于汉字查找的表示方法
相关文章