使用 OLEType 属性可以确定控件是否包含 OLE 对象,如果包含,还可确定对象是链接还是嵌入方式。Byte 型,可读写。
expression.OLEType
expression 必需。返回“Applies To”列表中的一个对象的表达式。
OLEType 属性使用以下设置:
设置 | 常量 | 说明 |
---|---|---|
链接 | acOLELinked | 控件包含链接对象。对象的全部数据由创建它的应用程序管理。 |
嵌入 | acOLEEmbedded | 控件包含嵌入对象。对象的全部数据由 Microsoft Access 管理。 |
无 | acOLENone | 控件不包含 OLE 对象。 |
下面的示例说明如何显示“插入对象”对话框,以及在单击“插入对象”对话框中的“取消”按钮后,如何显示错误消息。
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