全部显示

OLETypeAllowed 属性

       

使用 OLETypeAllowed 属性可以指定控件可包含的 OLE 对象的类型。String 型，可读写。

expression.OLETypeAllowed

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

OLETypeAllowed 属性使用以下设置：

设置 常量 说明
链接 acOLELinked  控件只允许包含一个链接对象。
嵌入 acOLEEmbedded 控件只允许包含一个嵌入对象。
两者皆可 acOLEEither （默认值）控件允许包含一个链接或嵌入对象。

可以通过使用控件的属性表、宏或 Visual Basic 来设置 OLETypeAllowed 属性，还可以通过使用控件的默认控件样式或 Visual Basic 中的 DefaultControl 方法来设置该属性的默认值。

注意   对于未绑定对象框和图表，不能在创建对象之后更改 OLETypeAllowed 设置。对于绑定对象框，可以在对象创建之后更改该设置。更改 OLETypeAllowed 属性设置只影响添加到控件中的新对象。

如果要确定控件中已包含的 OLE 对象的类型，可以使用 OLEType 属性。

示例

下面的示例使用名为 OLE1 的未绑定对象框架创建链接的 OLE 对象，当用户单击一个命令按钮时它会调整控件大小，以显示对象的所有内容。

Sub Command1_Click
    OLE1.Class = "Excel.Sheet"    ' Set class name.
    ' Specify type of object.
    OLE1.OLETypeAllowed = acOLELinked
    ' Specify source file.
    OLE1.SourceDoc = "C:\Excel\Oletext.xls"
    ' Specify data to create link to.
    OLE1.SourceItem = "R1C1:R5C5"
    ' Create linked object.
    OLE1.Action = acOLECreateLink
    ' Adjust control size.
    OLE1.SizeMode = acOLESizeZoom
End Sub