OLEType 屬性
內(nèi)容
使用 OLEType 屬性可以確定控件是否包含 OLE 對象，如果包含，還可確定對象是鏈接還是嵌入方式。Byte 型，可讀寫。
expression.OLEType
expression 必需。返回“應(yīng)用于”列表中的一個對象的表達(dá)式。
說明
OLEType 屬性使用以下設(shè)置：
設(shè)置 |
常量 |
說明 |
鏈接 |
acOLELinked |
控件包含鏈接對象。對象的全部數(shù)據(jù)由創(chuàng)建它的應(yīng)用程序管理。 |
嵌入 |
acOLEEmbedded |
控件包含嵌入對象。對象的全部數(shù)據(jù)由 Microsoft Access 管理。 |
無 |
acOLENone |
控件不包含 OLE 對象。 |
注釋 在創(chuàng)建 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