OLETypeAllowed 属性
内容
使用 OLETypeAllowed 属性可以指定控件可包含的 OLE 对象的类型。String 型，可读写。
expression.OLETypeAllowed
expression 必需。返回“应用于”列表中的一个对象的表达式。
说明
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