1.打开一个新工作表
2.在工作表中央画一个文本框,并且随便输入什么文字
3. 选择文本框之外的任意单元格
4. 按下Alt+F11激活VB编辑器窗口,并且选择工程浏览器窗口的Personal (Personal.xls)
5. 选择“插入”-“模块”,增加一个新的模块
6.在属性窗口,给该模块重命名:Manipulations
7.选择“视图”-“对象浏览器”,或按F2
8. 在“工程/库”下拉列表框里选择“Excel”类
9. 在搜索框里输入“textbox”并点击搜索按钮。确保你没有在文字间敲入空格。
10.使用shapes里的AddTextBox
11.按F1可以了解相关操作介绍
12.在模块Manipulations中添加代码:
Sub MoveTextBox()
With ActiveSheet.Shapes(1)
.Select
.Left = 200
.Top = 20
End With
End Sub
Sub MoveCircle()
With ActiveSheet.Shapes(2)
.Select
.Left = 0
.Top = 0
End With
End Sub
Excel 里的文本框和一个圆形对象,分别是Shapes(1),和 Shapes(2),
改变相应的left 或者top 的值可以改变位置。
总结:
该文主要探索使用对象的浏览器中的方法具体方法和实践操作。