Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Affiche le PickerDialog avec le gestionnaire de données déjà spécifié et les options spécifiées.
Syntaxe
expression. Show (IsMultiSelect, ExistingResults)
expression Expression qui renvoie un objet PickerDialog .
Paramètres
| Nom | Requis/Facultatif | Type de données | Description |
|---|---|---|---|
| IsMultiSelect | Facultatif | Boolean | Spécifie si l’interface utilisateur PickerDialog fournit plusieurs fonctions de sélection d’élément. |
| ExistingResults | Facultatif | PickerResults | Contient des PickerResults existants dans l’interface utilisateur pickerDialog . Ces résultats s’affichent dans le contrôle de l’élément sélectionné. |
Valeur renvoyée
PickerResults
Exemple
Le code suivant définit les propriétés PickerDialog , puis affiche le PickerDialog.
Dim objPickerDialog As PickerDialog
Dim objPickerProperties As PickerProperties
Dim objPickerProperty As PickerProperty
Dim objPickerExistingResults As PickerResults
Dim objPickerExistingResult As PickerResult
Dim objPickerResults As PickerResults
' Configure the Picker Dialog properties.
Set objPickerDialog = Application.PickerDialog
objPickerDialog.DataHandlerId = "{000CDF0A-0000-0000-C000-000000000046}"
objPickerDialog.Title = "Sample Picker Dialog"
Set objPickerProperties = objPickerDialog.Properties
Set objPickerProperty = objPickerProperties.Add("SiteUrl", "https://my", msoPickerFieldtypeText)
Set objPickerExistingResults = objPickerDialog.CreatePickerResults
Set objPickerExistingResult = objPickerExistingResults.Add("johndoe@contoso.com", "John Doe", "User")
' Show the Picker Dialog and get the results.
Set objPickerResults = objPickerDialog.Show(True, objPickerExistingResult)
Voir aussi
- Membres de l’objet PickerDialog
- Interface PickerDialog
- Interfaces de boîte de dialogue Sélecteur d’objets
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.