PowerPoint (的 AddIn 物件)
表示已載入或未載入的單一增益集。
AddIn 物件是 AddIns 集合的成員。 AddIns 集合包含所有的 Microsoft PowerPoint 特有增益集提供,不論已載入。 集合不包括元件物件模型 (COM) 增益集。
使用 AddIns (索引) ,其中 index 是增益集的標題或索引編號,可傳回單一 AddIn 物件。 下列範例會載入我 Ppt 工具增益集。
AddIns("my ppt tools").Loaded = True
不應把增益集的標題 (如上所示) 和增益集的名稱混淆,後者是指增益集的檔案名稱。 您必須確實依照 [增益集] 索引標籤中的標題拼寫增益集標題,但大小寫不必相同。
索引編號代表增益集在 [增益集] 索引標籤中的位置。下列範例會顯示目前載入 PowerPoint 之所有增益集的名稱。
For i = 1 To AddIns.Count
If AddIns(i).Loaded Then MsgBox AddIns(i).Name
Next
使用Add方法將特定 PowerPoint 的增益集新增至這些可用的清單。 但是請注意使用此方法不會載入增益集。 若要載入增益集、 設定增益集的已載入屬性設 為 True 之後使用 Add 方法。 您可以執行兩個這些動作在單一步驟中,如下列範例中 (請注意您會使用增益集,不標題的名稱及 Add 方法) 中所示。
AddIns.Add("generic.ppa").Loaded = True
使用 AddIns (索引) ,其中 index 是增益集的標題,可傳回載入增益集的參考。 下列範例會將 presAddin
變數設定為標題為"my ppt tools"的增益集和將 myName
變數設定為增益集的名稱。
Set presAddin = AddIns("my ppt tools")
With presAddin
myName = .Name
End With
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。