大家好，我们今日继续讲解VBA代码解决方案的第117讲内容：如何在工作表中添加图形。如果需要在工作表中添加图形对象，可以使用AddShape方法，当该方法应用于Shapes对象时，返回一个Shape对象，该对象代表工作表中的新自选图形，语法如下：

expression.AddShape(Type, Left, Top, Width, Height)

参数expression是必须的，返回一个Shapes对象。

参数Type是必须的，指定要创建的自选图形的类型。如下:

msoShapeRectangle 矩形

msoShapeRightTriangle 直角三角形

msoShapeSmileyFace 笑脸

msoShape5pointStar 五角星

参数Left和Top是必须的，以磅为单位给出自选图形边框左上角的位置。

参数Width和Height是必须的，以磅为单位给出自选图形边框的宽度和高度。

下面我们看一下下面的代码。

Sub MynzAddShape()

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

On Error Resume Next

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

Set myShape = Sheets("sheet2").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

代码截图：

代码解析：AddShape过程在工作表中添加一个笑脸并设置其外观等属性。

第2行代码声明变量myShape的对象类型。

第3、4行代码删除可能存在的名称为"myShape"的图形对象。

第5行代码使用AddShape添加笑脸

其余的属性设置就不再一一的解释了，请读者看上面的代码注释；

看运行的结果：

如果我们把代码Set myShape = Sheets("sheet2").Shapes.AddShape(msoShapeSmileyFace, 40, 40, 280, 160) 换成：

Set myShape = Sheets("sheet2").Shapes.AddShape(msoShape5pointStar, 40, 40, 280, 160)

点运行：

今日内容回向：

1. 如何添加一个图形？

2 图形的属性是如何设置的？