OLEType 属性
内容
使用 OLEType 属性可以确定控件是否包含 OLE 对象，如果包含，还可确定对象是链接还是嵌入方式。Byte 型，可读写。
expression.OLEType
expression 必需。返回“应用于”列表中的一个对象的表达式。
说明
OLEType 属性使用以下设置：
设置 |
常量 |
说明 |
链接 |
acOLELinked |
控件包含链接对象。对象的全部数据由创建它的应用程序管理。 |
嵌入 |
acOLEEmbedded |
控件包含嵌入对象。对象的全部数据由 Microsoft Access 管理。 |
无 |
acOLENone |
控件不包含 OLE 对象。 |
注释 在创建 OLE 对象时，请使用 OLETypeAllowed 属性来确定控件可以包含什么类型的对象。
示例
下面的示例说明如何显示“插入对象”对话框，以及在单击“插入对象”对话框中的“取消”按钮后，如何显示错误消息。
Sub InsertObject_Click()
Dim conUserCancelled As Integer
' Error message returned when user cancels.
conUserCancelled = 2001
On Error GoTo ButtonErr
If OLE1.OLEType = acOLENone Then
' No OLE object created.
' Display Insert Object dialog box.
OLE1.Action = acOLEInsertObjDlg
End If
Exit Sub
ButtonErr:
If Err = conUserCancelled Then ' Display message.
MsgBox "You clicked the Cancel button; " _
& "no object was created."
End If
Resume Next
End Sub