为了提高Excel工作表的自动化操作，会在表中添加的各种ActiveX控件或OLE对象，工作表上的一个 ActiveX 控件或链接或嵌入的 OLE 对象可以大大提高工作表的使用效率。
那么问题来了，这些添加进来的OLE对象，都有其各自的属性和方法，本节就对此进行一个简单说明，怎么样进行属性设置。
其实，添加各类控件或对象的同时，要有一个思维模式，就是既然添加进来了，就要对这个控件进行一个全方位设置，不管理它是外形还是内存需要执行的代码。
我们要做的就是知道哪些字符代表了它的哪些功能或属性，然后针对性地进行参数设置。
简单来说，就是把英文含义理解了，然后对应地赋值，似乎是一件十分无聊的事情，但就是这些无聊造就了表格自动化过程。
这说明了一点，用老美的软件首先要懂得老美的思维方式。然后再查字典式地进行堆积，其实编程的初级阶段不过如此。
仔细看上图，添加了几种控件，都没有实际意义，然后通过一些代码提取出这些控件的基本信息，显示到表格中。
这就是说，通过一些代码实现了对控件的属性提取，当然也可以赋值。
下图为OLEobject对象的事件、方法、和属性，比较多，不一一介绍了。
重点看下本例代码：
Private Sub Worksheet_Activate()
Dim xObj As Object
Dim xi As Integer
Dim R As Range
Set R = Range("B3")
R.Value = "对象名称"
R.Offset(0, 1).Value = "对象高度"
R.Offset(0, 2).Value = "对象宽度"
R.Offset(0, 3).Value = "对象顶部位置"
R.Offset(0, 4).Value = "对象底部位置"
Set R = R.Offset(1, 0)
For Each xObj In Me.OLEObjects'遍历表中的OLEObject控件
R.Offset(xi, 0).Value = xObj.Name '返回对象名称
R.Offset(xi, 1).Value = xObj.Height '高度
R.Offset(xi, 2).Value = xObj.Width '宽度
R.Offset(xi, 3).Value = xObj.TopLeftCell.Address '顶部位置
R.Offset(xi, 4).Value = xObj.BottomRightCell.Address '底部位置
xi = xi + 1
Next xObj
R.Offset(xi, 0).Value = "共有对象：" & Me.OLEObjects.Count
Set R = Nothing
Set xObj = Nothing
SetxOleObjPlacement
End Sub
本示例过程放到Worksheet工作表中的Activate事件里。
对照下表可以查看属性：
遍历OLEObject控件和设置属性可使用如下过程：
Private Sub SetxOleObjPlacement()
Dim xob As Object
For Each xob In Me.OLEObjects
xob.Placement = xlFreeFloating '设置对象位置固定
xob.Locked = True '锁定对象
Next xob
Set xob = Nothing
End Sub
Excel工作表中的对象应用也是一个十分有用的内容，为了提高表格的使用效率，掌握一点控件的编辑方法十分必要。
欢迎关注、收藏
---END---