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