Método PickerResults.Add (Office)

Artigo
04/07/2023

Adiciona um objeto PickerResult à coleção PickerResults .

Sintaxe

expressão. Adicionar (Id, DisplayName, Type, SIPId, ItemData, SubItems)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Id	Obrigatório	String	Representa um identificador do PickerResult.
DisplayName	Obrigatório	String	Representa um nome de exibição do PickerResult.
Tipo	Obrigatório	String	Representa um tipo do PickerResult.
SIPId	Opcional	String	Sem suporte atualmente. O SIPId é o identificador do Servidor de Comunicação do Office. É usado apenas para o cenário de escolha de pessoas.
ItemData	Opcional	Variantes	Dados de associação de item não exibidos.
SubItems	Opcional	Variantes	Exibe os dados de campo de finalidade de finalidade ou não exibição do PickerResult. Ele é usado para passar valores de coluna no PickerDialog.

Valor de retorno

PickerResult

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 objPickerExistingResults 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

Membros do objeto PickerResults

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.

Partilhar via