Excel——VBA之移动文本框圆形操作

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 的值可以改变位置。

总结：

该文主要探索使用对象的浏览器中的方法具体方法和实践操作。