Propriété ObjectFrame.OLEType (Access)
Utilisez la propriété OLEType pour déterminer si un contrôle contient un objet OLE et, le cas échéant, si l’objet est lié ou incorporé. Type de données Octet en lecture-écriture.
Syntaxe
expression. OLEType
Expression Variable qui représente un objet ObjectFrame .
Remarques
La propriété OLEType (TypeOLE) utilise les paramètres suivants.
Paramètre | Constante | Description |
---|---|---|
Lié | acOLELinked | Le contrôle contient un objet lié. Toutes les données de l’objet sont gérées par l’application qui l’a créé. |
Incorporé | acOLEEmbedded | Le contrôle contient un objet incorporé. Toutes les données de l’objet sont gérées par Microsoft Access. |
Aucun | acOLENone | Le contrôle ne contient pas d'objet OLE. |
Lorsque vous créez un objet OLE, utilisez la propriété OLETypeAllowed (TypeOLEPermis) pour déterminer le type d'objet qu'un contrôle peut contenir.
Exemple
L’exemple suivant montre comment afficher la boîte de dialogue Insérer un objet et comment afficher un message d’erreur si le bouton Annuler dans la boîte de dialogue Insérer un objet est choisi.
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
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour