使用Add方法添加窗体控件

  • 格式:doc
  • 大小:97.00 KB
  • 文档页数:2

1-1 使用Add方法

在工作表中添加窗体控件还可以使用Add方法,如下面的代码所示。

#001 Sub AddChartObjects()

#002 Dim myButton As Button

#003 On Error Resume Next

#004 Sheet1.Shapes("myButton").Delete

#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方法在工作表中添加窗体控件。

第3、4行代码为了避免在工作表中重复添加按钮控件,先删除工作表中的“myButton”按钮。

第5行代码,使用Add方法在工作表中添加命令按钮控件,Add方法适用于ChartObjects对象的语法如下:

expression.Add(Left, Top, Width, Height)

参数expression是必需的,该表达式返回一个ChartObjects对象。

如果需要在工作表中添加其他窗体控件,可以将参数expression设置为表格 错误!文档中没有指定样式的文字。-1所示的ChartObjects对象之一。

类型 ChartObjects对象

复选框 CheckBoxes

组合框 DropDowns

标签 Labels

列表框 ListBoxes

选项按钮 OptionButtons

滚动条 ScrollBars

微调项

Spinners

表格 错误!文档中没有指定样式的文字。-1 ChartObjects对象

参数Left和Top是必需的,以磅为单位给出新对象的初始坐标,该坐标是相对于工作表上单元格 A1 的左上角或图表的左上角的坐标。

参数Width和参数Height是必需的,以磅为单位给出新对象的初始大小。

第7行代码将新添加的按钮的名称设置为“myButton”。

第8行到第10代码新添加的按钮的文字设置为“新建的按钮”并设置文字的大小和颜色。

第11行代码,指定新添加命令按钮所执行的宏名称。

myButton过程是单击新添加按钮所执行的过程,显示一个消息框。

运行AddChartObjects过程将在工作表中添加一个命令按钮,单击按钮显示一个消息框,如图 错误!文档中没有指定样式的文字。-1所示。

图 错误!文档中没有指定样式的文字。-1 使用Add方法添加窗体控件