Excel VBA教程:OLEObjects方法

返回代表图表或工作表上单个 OLE对象(OLEObject)或所有 OLE对象的集合(OLEObjects集合)的对象。只读。

expression.OLEObjects(Index)

expression   必需。该表达式返回一个 Chart对象或 Worksheet对象。

Index   Variant 类型,可选。OLE对象的名称或编号。

Excel VBA教程:OLEObjects方法·示例

本示例创建工作表 Sheet1 上 OLE对象的链接类型列表。该列表将出现在本示例新建的工作表中。


Set newSheet = Worksheets.Add
i = 2
newSheet.Range("A1").Value = "Name"
newSheet.Range("B1").Value = "Link Type"
For Each obj In Worksheets("Sheet1").OLEObjects
    newSheet.Cells(i, 1).Value = obj.Name
    If obj.OLEType = xlOLELink Then
        newSheet.Cells(i, 2) = "Linked"
    Else
        newSheet.Cells(i, 2) = "Embedded"
    End If
    i = i + 1
Next

上页:Excel VBA教程:OfflineConflict方法 下页:Excel VBA教程:OneColorGradient方法

Excel VBA教程:OLEObjects方法

Excel VBA教程:OneColorGradient方法 Excel VBA教程:OnKey方法
Excel VBA教程:OnRepeat方法 Excel VBA教程:OnTime方法
Excel VBA教程:OnUndo方法 Excel VBA教程:Open方法
Excel VBA教程:OpenDatabase方法 Excel VBA教程:OpenLinks方法
Excel VBA教程:OpenText方法 Excel VBA教程:OpenXML方法
Excel VBA教程:Parse方法 Excel VBA教程:Paste方法
Excel VBA教程:PasteSpecial方法 Excel VBA教程:Patterned方法
Excel VBA教程:PickUp方法 Excel VBA教程:PieGroups方法
Excel VBA教程:PivotCache方法 Excel VBA教程:PivotCaches方法
Excel VBA教程:PivotFields方法 Excel VBA教程:PivotItems方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号