Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Verwenden Sie die OLEType-Eigenschaft , um zu bestimmen, ob ein Steuerelement ein OLE-Objekt enthält und wenn ja, ob das Objekt verknüpft oder eingebettet ist. Byte-Wert mit Lese-/Schreibzugriff.
Syntax
Ausdruck. OLEType
Ausdruck Eine Variable, die ein ObjectFrame-Objekt darstellt.
Hinweise
Die OLEType-Eigenschaft verwendet die folgenden Einstellungen.
| Einstellung | Konstante | Beschreibung |
|---|---|---|
| Verknüpft | acOLELinked | Das Steuerelement enthält ein verknüpftes Objekt. Alle Daten des Objekts werden von der Anwendung verwaltet, mit der das Objekt erstellt wurde. |
| Eingebettete | acOLEEmbedded | Das Steuerelement enthält ein eingebettetes Objekt. Alle Daten des Objekts werden von Microsoft Access verwaltet. |
| Keine | acOLENone | Das Steuerelement enthält kein OLE-Objekt. |
Verwenden Sie beim Erstellen eines OLE-Objekts die OLETypeAllowed-Eigenschaft , um zu bestimmen, welchen Objekttyp ein Steuerelement enthalten kann.
Beispiel
Im folgenden Beispiel wird veranschaulicht, wie das Dialogfeld Objekt einfügen angezeigt wird und wie eine Fehlermeldung angezeigt wird, wenn die Schaltfläche Abbrechen im Dialogfeld Objekt einfügen ausgewählt ist.
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
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.