Compartir a través de

Método PickerDialog.Show (Office)

  • Artículo

Muestra pickerDialog con el controlador de datos ya especificado y las opciones especificadas.

Sintaxis

expresión. Mostrar (IsMultiSelect, ExistingResults)

Expresión Expresión que devuelve un objeto PickerDialog .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
IsMultiSelect Opcional Boolean Especifica si la interfaz de usuario PickerDialog proporciona varias funciones de selección de elementos.
ExistingResults Opcional PickerResults Contiene pickerResults existentes en la interfaz de usuario PickerDialog . Estos resultados se muestran en el control del elemento seleccionado.

Valor devuelto

PickerResults

Ejemplo:

El código siguiente establece las propiedades PickerDialog y, a continuación, muestra 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)

Consulte también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.