PickerResults.Add 方法 (Office)

將 PickerResult 物件新增至 PickerResults 集合。

語法

運算式。新增 (標識符、 DisplayName、 Type、 SIPId、 ItemData、 SubItems)

表達 會傳回 PickerResults 物件的 運算式。

參數

名稱	必要/選用	資料類型	描述
Id	必要	字串	表示 PickerResult的識別碼。
DisplayName	必要	String	代表 PickerResult的顯示名稱。
Type	必要	String	表示 PickerResult的類型。
SIPId	選用	字串	目前不支援。 SIPId是 Office 通訊伺服器的識別碼。 它僅用於人員挑選案例。
ItemData	選用	Variant	未顯示專案系結資料。
SubItems	選用	Variant	顯示 PickerResult的用途或非顯示目的欄位資料。 它用於在 PickerDialog中傳遞資料行值。

傳回值

PickerResult

範例

下列程式碼會設定 PickerDialog 屬性，然後顯示 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)

另請參閱

• PickerResults 物件成員

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。