大家好,世界各地,疫情施虐。疫情过后会是什么?对于后疫情时代大家很难预测,或许是供应链的断裂,经济下行的压力加大,但可以肯定的是会催生新的经济增长点。在今后更加严峻的存量残杀世界中,对于我们每个人,要尽可能多学习有用的知识,为自己充电。知识的储备,特别是新知识的储备是我们为后疫情时代做的必要准备。
今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验和记录,来源于我多年的经验。今日分享的是NO.234,内容是:
NO.234:导出工作表中的所有图片
VBA过程代码234:导出工作表中的所有图片
Sub Mynz()
Dim Shp As Shape
Dim FileName As String
For Each Shp In Sheets("118").Shapes
If Shp.Type = msoPicture Then
FileName = ThisWorkbook.Path & "" & Shp.Name & ".JPG"
Shp.Copy
With Sheets("118").ChartObjects.Add(0, 0, Shp.Width + 10, Shp.Height + 12).Chart
.Paste
.Export FileName, "JPG"
.Parent.Delete
End With
End If
Next
End Sub
代码解析:Mynz过程将Sheets("118")工作表的所有图片以文件形式导出到同一目录中。
代码使用For Each...Next 语句遍历Sheets("118")工作表中的所有图形。代码判断图形的类型是否为图片,应用于Shape对象的Type属性返回或设置图形类型。使用字符串变量FileName记录需导出图形的路径和名称。复制图形,应用于Shape对象的Copy方法将对象复制到剪贴板。Add方法在工作表中添加一个图表, Paste方法将图形粘贴到新的嵌入图表中,应用于Chart对象的Paste方法将剪贴板中的图,代码使用Export方法将图表导出到同一目录中,代码删除新建的图表。因为Chart对象是不能使用Delete方法直接删除的,应先使用Parent属性返回指定对象的父对象,然后使用Delete方法删除。
VBA是利用OFFICE实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,总结了四部VBA学习资料,是我"积木编程"思想的体现。
第一:VBA代码解决方案,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点;
第二:VBA数据库解决方案,是数据处理的专业利器,介绍利用ADO连接ACCDB,EXCEL。
第三:VBA数组与字典解决方案,讲解VBA中的数组和字典的利用。
第四:VBA代码解决方案之视频,是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。
VBA真的非常实用,希望大家掌握这个工具,利用这个工具,让自己在工作中轻松,高效,快乐。为后疫情时代做好知识的储备。