Excel如何设置工作表中的OLE对象属性，这一文讲清楚了要点

为了提高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---