大家好，今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验和记录，来源于我多年的经验。今日分享的是NO.231-NO.232，内容是：

NO. 233：利用VBA代码在工作表中添加图形

VBA过程代码233：利用VBA代码在工作表中添加图形

Sub Mynz ()

Dim myShape As Shape '声明对象的类型

On Error Resume Next

Sheets("117").Shapes("myShape").Delete '删除可能名字为myShape的图形对象

Set myShape = Sheets("117").Shapes.AddShape(msoShapeSmileyFace, 40, 40, 280, 160) '添加一个笑脸形状

With myShape

.Name = "myShape" '设置形状的名称

End With

myShape.Select

With Selection.ShapeRange '设置形状的边框线条格式

With .Line

.Weight = 1 '置形状线条粗细

.DashStyle = msoLineSolid '设置形状线条的虚线样式

.Style = msoLineSingle '设置形状填充的透明度

.Transparency = 0

.Visible = msoTrue '设置形状为可见

.ForeColor.SchemeColor = 39 '置形状的前景色

End With

With .Fill '设置形状的内部填充格式

.Transparency = 0 '设置形状内部的透明度

.Visible = msoTrue '设置形状内部为可见

.ForeColor.SchemeColor = 6 '设置形状内部的前景色

End With

End With

End Sub

代码解析：Mynz过程在工作表中添加一个笑脸并设置其外观等属性。代码使用AddShape添加笑脸，分别利用代码给设置形状的名称，设置形状的边框线条格式，设置形状线条粗细，设置形状线条的虚线样式，设置形状填充的透明度，设置形状为可见，置形状的前景色，设置形状的内部填充格式，设置形状内部的透明度，设置形状内部为可见等等设置过程。

VBA是利用OFFICE实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，总结了四部VBA学习资料，是我"积木编程"思想的体现。

第一：VBA代码解决方案，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点；

第二：VBA数据库解决方案，是数据处理的专业利器，介绍利用ADO连接ACCDB,EXCEL。

第三：VBA数组与字典解决方案，讲解VBA中的数组和字典的利用。

第四：VBA代码解决方案之视频，是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。

VBA真的非常实用，希望大家掌握这个工具，利用这个工具，让自己在工作中轻松，高效，快乐。