第 3 、4 行代码为了避免在工作表中重复添加按钮控件， 按钮。
先删除工作表中的 “myButton ”
第 5 行代码，使用 Add 方法在工作表中添加命令按钮控件， ChartObjects 对象的语法如下：
Add 方法适用于
expression.Add(Left, Top, Width, Height)
图 错误！文档中没有指定样式的文字。 -1 使用 Add 方法添加窗体控件
1-1 使用 Add 方法
在工作表中添加窗体控件还可以使用
#001 Sub AddChartObjects()
Add 方法，如下面的代码所示。
#002 Dim myButton As Button
#003 On Error Resume Next
#004 Sheet1.Shapes("myButton").Delete
ห้องสมุดไป่ตู้
标签
Labels
列表框
ListBoxes
选项按钮
OptionButtons
滚动条
ScrollBars
微调项
Spinners
表格 错误！文档中没有指定样式的文字。 -1
ChartObjects 对象
参数 Left 和 Top 是必需的，以磅为单位给出新对象的初始坐标，该坐标是相对于工作 表上单元格 A1 的左上角或图表的左上角的坐标。
#005 Set myButton = Sheet1.Buttons.Add(108, 72, 108, 27)
#006 With myButton
#007
.Name = "myButton"
#008
.Font.Size = 12
#009
.Font.ColorIndex = 5
#010
.Characters.Text = "
新建的按钮 "
#011
.OnAction = "myButton"
#012 End With
#013 End Sub
#014 Sub myButton()
#015 MsgBox "
这是使用 Add 方法新建的按钮 !"
#016 End Sub
代码解析：
AddChartObjects 过程使用 Add 方法在工作表中添加窗体控件。
参数 Width 和参数 Height 是必需的，以磅为单位给出新对象的初始大小。 第 7 行代码将新添加的按钮的名称设置为“ myButton ”。 第 8 行到第 10 代码新添加的按钮的文字设置为“新建的按钮”并设置文字的大小和颜 色。 第 11 行代码，指定新添加命令按钮所执行的宏名称。 myButton 过程是单击新添加按钮所执行的过程，显示一个消息框。 运行 AddChartObjects 过程将在工作表中添加一个命令按钮，单击按钮显示一个消息 框，如图 错误！文档中没有指定样式的文字。 -1 所示。
参数 expression 是必需的，该表达式返回一个 ChartObjects 对象。 如果需要在工作表中添加其他窗体控件， 可以将参数 expression 设置为表格 错误！ 文 档中没有指定样式的文字。 -1 所示的 ChartObjects 对象之一。
类型 复选框 组合框
ChartObjects 对象 CheckBoxes DropDowns