PickerDialog.Show, méthode (Office)

Article
04/07/2023

Affiche le SélecteurDialog 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 .

Parameters

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

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.

Partager via