蓝字关注,加微信NZ9668获资料信息
VBA解决方案 系列丛书作者
头条百家平台 VBA资深创作者
_______________________________
大家好,世界各地,疫情施虐。疫情过后会是什么?对于后疫情时代大家很难预测,或许是供应链的断裂,经济下行的压力加大,但可以肯定的是会催生新的经济增长点。在今后更加严峻的存量残杀世界中,对于我们每个人,要尽可能多学习有用的知识,为自己充电。知识的储备,特别是新知识的储备是我们为后疫情时代做的必要准备。
今日继续和大家分享VBA
编程中常用的常用“积木”过程代码。这些内容大多是我的经验的记录,来源于我多年的经验。今日分享的是NO.234
,内容是:
![046e05bc3066ee1c2e5440602bddce5a.png](https://i-blog.csdnimg.cn/blog_migrate/f73dc6688b4826604f1f3915cfa2fdcf.png)
NO.234
:
导出工作表中的所有图片
VBA
过程代码
234
:
导出工作表中的所有图片Sub Mynz() Dim Shp As Shape Dim FileName As String For Each Shp InSheets("118").Shapes If Shp.Type =msoPicture Then FileName =ThisWorkbook.Path & "\" & Shp.Name & ".JPG" Shp.Copy WithSheets("118").ChartObjects.Add(0, 0, Shp.Width + 10, Shp.Height +12).Chart .Paste .ExportFileName, "JPG" .Parent.Delete End With End If Next End Sub
![f20aef37f94303fc4e77ab97ddc5047a.png](https://i-blog.csdnimg.cn/blog_migrate/2c15cbb95b28ef3765c71b3e14b47968.png)
代码解析:Mynz
过程将Sheets("118")
工作表的所有图片以文件形式导出到同一目录中。
代码使用For Each...Next
语句遍历Sheets("118")
工作表中的所有图形。代码判断图形的类型是否为图片,应用于Shape
对象的Type
属性返回或设置图形类型。使用字符串变量FileName
记录需导出图形的路径和名称。复制图形,应用于Shape
对象的Copy
方法将对象复制到剪贴板。
Add
方法在工作表中添加一个图表, Paste
方法将图形粘贴到新的嵌入图表中,应用于Chart
对象的Paste
方法将剪贴板中的图,代码使用Export
方法将图表导出到同一目录中,代码删除新建的图表。因为Chart
对象是不能使用Delete
方法直接删除的,应先使用Parent
属性返回指定对象的父对象,然后使用Delete
方法删除。
![6e9e3a10dc61eb74f068b72b39dc21db.png](https://i-blog.csdnimg.cn/blog_migrate/b806377815d0110808b587a9a98b84aa.jpeg)
VBA
是利用OFFICE
实现自己小型办公自动化的有效手段,我根据自己20
多年的VBA
实际利用经验,总结了四部VBA
学习资料,是我“积木编程”思想的体现。
第一:VBA
代码解决方案,是VBA
中各个知识点的讲解,覆盖了绝大多数的知识点;
第二:VBA
数据库解决方案,是数据处理的专业利器,介绍利用ADO
连接ACCDB,EXCEL
。
第三:VBA
数组与字典解决方案,讲解VBA
中的数组和字典的利用。
第四:VBA
代码解决方案之视频,是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。VBA
真的非常实用,希望大家掌握这个工具,利用这个工具,让自己在工作中轻松,高效,快乐。为后疫情时代做好知识的储备。
_____________________________
有启发 点在看,转给朋友
约作者 请留言,直接交流
更多关联阅读
![bc8b86381125b72a7df524f08d1836a1.png](https://i-blog.csdnimg.cn/blog_migrate/194bc4aa56e5d11f67148155ef690573.jpeg)
![819a78609517ec0575839909efbde12d.png](https://i-blog.csdnimg.cn/blog_migrate/eb1556f71edb54fb032a4c9165ed32f9.jpeg)
![be2bab17353e90da7f1d90844742ce63.png](https://i-blog.csdnimg.cn/blog_migrate/7c514d31cbeef5aea4ba26497c0bdd2b.jpeg)
![9668794e86e1bac967eaa7d0cbd1489d.png](https://i-blog.csdnimg.cn/blog_migrate/3bf94b9927465aeedee2e792bf2e557b.jpeg)