Access VBA教程:OLETypeAllowed属性

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

expression.OLETypeAllowed

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

说明

OLETypeAllowed属性使用以下设置:

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

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

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

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

VBA示例

下面的示例使用名为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

上页:Access VBA教程:OLEType属性 下页:Access VBA教程:OnActivate属性

Access VBA教程:OLETypeAllowed属性

Access VBA教程:OnActivate属性 Access VBA教程:OnApplyFilter属性
Access VBA教程:OnChange属性 Access VBA教程:OnClick属性
Access VBA教程:OnClose属性 Access VBA教程:OnConnect属性
Access VBA教程:OnCurrent属性 Access VBA教程:OnDblClick属性
Access VBA教程:OnDeactivate属性 Access VBA教程:OnDelete属性
Access VBA教程:OnDirty属性 Access VBA教程:OnDisconnect属性
Access VBA教程:OnEnter属性 Access VBA教程:OnError属性
Access VBA教程:OnExit属性 Access VBA教程:OnFilter属性
Access VBA教程:OnFormat属性 Access VBA教程:OnGotFocus属性
Access VBA教程:OnInsert属性 Access VBA教程:OnKeyDown属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号