Skip to content

Latest commit

 

History

History
59 lines (39 loc) · 1.91 KB

Office.PickerProperties.md

File metadata and controls

59 lines (39 loc) · 1.91 KB
title keywords f1_keywords api_name ms.assetid ms.date ms.localizationpriority
PickerProperties object (Office)
vbaof11.chm337000
vbaof11.chm337000
Office.PickerProperties
368e2b17-1b4f-484e-483f-53c7cd16a444
01/22/2019
medium

PickerProperties object (Office)

A collection of PickerProperty objects.

Remarks

Each PickerProperty object is a Name(ID)/Value pair for passing option values to a PickerDialog object. You can get a PickerProperties collection object through the Properties property of the PickerDialog object.

Example

The following code sets the PickerDialog properties and then displays the 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)

See also

[!includeSupport and feedback]