通过

PickerDialog.Show 方法 (Office)

  • 项目

显示具有已指定数据处理程序和给定选项的 PickerDialog 。

语法

表达式。显示 (IsMultiSelect、 ExistingResults)

表达 返回 PickerDialog 对象的表达式。

参数

名称 必需/可选 数据类型 说明
IsMultiSelect 可选 Boolean 指定 PickerDialog 用户界面是否提供多个项目选择函数。
ExistingResults 可选 PickerResults 包含 PickerDialog 用户界面中的现有 PickerResults。 这些结果在选定的项控件中显示。

返回值

PickerResults

示例

以下代码设置 PickerDialog 属性，然后显示 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)

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。