全部显示

OLEType 属性

       

使用 OLEType 属性可以确定控件是否包含 OLE 对象,如果包含,还可确定对象是链接还是嵌入方式。Byte 型,可读写。

expression.OLEType

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

说明

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