Método PickerResults.Add (Office)
Agrega un objeto PickerResult a la colección PickerResults .
Sintaxis
expresión. Agregar (Id, DisplayName, Type, SIPId, ItemData, SubItems)
Expresión Expresión que devuelve un objeto PickerResults .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Id | Obligatorio | String | Representa un identificador de PickerResult. |
| DisplayName | Obligatorio | String | Representa un nombre para mostrar de PickerResult. |
| Tipo | Obligatorio | String | Representa un tipo de PickerResult. |
| SIPId | Opcional | String | No se admite actualmente. SipId es el identificador de Office Communication Server. Solo se usa para el escenario de selección de personas. |
| ItemData | Opcional | Variant | Datos de enlace de elementos que no se muestran. |
| SubItems | Opcional | Variant | Muestra los datos de campo de propósito o de propósito que no se muestran del pickerResult. Se usa para pasar valores de columna en PickerDialog. |
Valor devuelto
PickerResult
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 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)
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.