全部顯示

使用 OLEType 屬性可以確定控件是否包含 OLE 對(duì)象，如果包含，還可確定對(duì)象是鏈接還是嵌入方式。Byte 型，可讀寫。

expression.OLEType

expression     必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。

說(shuō)明

OLEType 屬性使用以下設(shè)置：

 

注釋  在創(chuàng)建 OLE 對(duì)象時(shí)，請(qǐng)使用 OLETypeAllowed 屬性來(lái)確定控件可以包含什么類型的對(duì)象。

示例

下面的示例說(shuō)明如何顯示“插入對(duì)象”對(duì)話框，以及在單擊“插入對(duì)象”對(duì)話框中的“取消”按鈕后，如何顯示錯(cuò)誤消息。

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