Método PickerDialog.Show (Office)

Artigo
04/07/2023

Exibe o PickerDialog com o manipulador de dados já especificado e as opções fornecidas.

Sintaxe

expressão. Mostrar (IsMultiSelect, ExistingResults)

Expressão Uma expressão que retorna um objeto PickerDialog .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
IsMultiSelect	Opcional	Boolean	Especifica se a interface do usuário PickerDialog fornece várias funções de seleção de item.
ExistingResults	Opcional	PickerResults	Contém PickerResults existentes na interface do usuário PickerDialog . Esses resultados são exibidos no controle do item selecionado.

Valor de retorno

PickerResults

Exemplo

O código a seguir define as propriedades PickerDialog e exibe o 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)

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Compartilhar via