大家好，今日继续和大家分享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真的非常实用，希望大家掌握这个工具，利用这个工具，让自己在工作中轻松，高效，快乐。
