深圳office培训 深圳excel培训
深圳excel培训 深圳office培训
咨询服务
深圳office培训
深圳office培训
office培训
excel培训
ppt培训
vba培训
access培训
word培训
visio培训
project培训
outlook培训
数据库培训
深圳access培训
深圳sql培训
深圳office培训
 

在工作表中添加窗体控件


2022年4月28日 作者: 来源:

在工作表中添加窗体控件,除了使用手工添加外,还可以使用代码添加,方法如下:
31-1 使用AddFormControl方法
使用AddFormControl方法在工作表中添加窗体控件,如下面的代码所示。
#001  Sub AddFormControls()
#002      Dim myShape As Shape
#003      On Error Resume Next
#004      Sheet1.Shapes("myButton").Delete
#005      Set myShape = Sheet1.Shapes.AddFormControl(0, 108, 72, 108, 27)
#006      With myShape
#007          .Name = "myButton"
#008          With .TextFrame.Characters
#009              .Font.ColorIndex = 3
#010              .Font.Size = 12
#011              .Text = "新建的按钮"
#012          End With
#013          .OnAction = "myButton"
#014      End With
#015  End Sub
#016  Sub myButton()
#017      MsgBox "这是使用AddFormControl方法新建的按钮!"
#018  End Sub
代码解析:
AddFormControls过程使用AddFormControl方法在工作表中添加窗体控件。
第3、4行代码为了避免在工作表中重复添加按钮控件,先删除工作表中的“myButton”按钮。
第5行代码,使用AddFormControl方法在工作表中添加命令按钮控件并设置控件的坐标和大小。应用于Shapes对象的AddFormContl方法创建一个Microsoft Excel控件,返回一个Shape对象,该对象代表新建的控件,语法如下:
expression.AddFormControl(Type, Left, Top, Width, Height)
参数expression是必需的,一个有效的对象。
参数Type是必需的,Microsoft Excel控件类型,可以为下列XlFormControl 常量之一。
常量         值 说明
xlButtonControl 0 命令按钮
xlCheckBox 1 复选框
xlDropDown 2 组合框
xlEditBox 3 编辑框
xlGroupBox 4 分组框
xlLabel         5 标签
xlListBox 6 列表框
xlOptionButton 7 选项按钮
xlScrollBar 8 滚动条
xlSpinner 9 微调项
参数Left是必需的,新对象的初始坐标(以磅为单位)相对于工作表 A1 单元格的左上角或图表的左上角。
参数Top是必需的,新对象的初始坐标(以磅为单位)相对于工作表 A1 单元格的左上角或图表的左上角。
参数Width是必需的,以磅为单位的新对象的初始大小。
参数Height是必需的,以磅为单位的新对象的初始大小。
第7行代码将新添加的按钮名称设置为“myButton”。
第8行到第12行代码设置新添加的按钮文字设置为“新建的按钮”,并设置文字的大小和颜色。
第13行代码,指定新添加按钮所执行的宏名称。
myButton过程是单击新添加按钮所执行的过程,显示一个消息框。
运行AddFormControls过程将在工作表中添加一个命令按钮,单击按钮显示一个消息框。
 
31-2 使用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设置为下列所示的ChartObjects对象之一。
类型   ChartObjects对象
复选框   CheckBoxes
组合框   DropDowns
标签   Labels
列表框   ListBoxes
选项按钮  OptionButtons
滚动条   ScrollBars
微调项   Spinners
参数Left和Top是必需的,以磅为单位给出新对象的初始坐标,该坐标是相对于工作表上单元格 A1 的左上角或图表的左上角的坐标。
参数Width和参数Height是必需的,以磅为单位给出新对象的初始大小。
第7行代码将新添加的按钮的名称设置为“myButton”。
第8行到第10代码新添加的按钮的文字设置为“新建的按钮”并设置文字的大小和颜色。
第11行代码,指定新添加命令按钮所执行的宏名称。
myButton过程是单击新添加按钮所执行的过程,显示一个消息框。
运行AddChartObjects过程将在工作表中添加一个命令按钮,单击按钮显示一个消息框。
 


阅读:1668 上一则:如何在vba中播放flash文件 下一则:在工作表中添加ActiveX控件

返回前页 返回顶部
温馨提示:本中心是深圳较为专业office培训机构、咨询及报名请先预约,电话:0755-82124110。
深圳地址:深圳红荔路四川大厦1109B-1110(3号龙岗线通新岭地铁站A出口10米)
热线:0755-82124110(福田、南山、宝安) 0755-22205758(罗湖、龙岗、龙华) 13510024571(东莞、惠州、珠海、广州)
北京地址:北京清华大学华业大厦三区三楼 版权所有:深圳万博计算机教育 粤ICP备11006947号-1
 
深圳信息系统项目管理师培训
深圳信息系统项目管理师培训 欢迎咨询!
您好!请点击这里咨询万博教育
深圳万博吴老师
您好!请点击这里咨询万博教育
深圳万博史老师
 
深圳信息系统项目管理师培训
深圳信息系统项目管理师培训