一、AddIn对象的使用
使用 AddIns(index) 返回单个 AddIn 对象，其中 index 是加载宏的标题或索引编号。以下示例加载 My Ppt Tools 加载宏。
AddIns("my ppt tools").Loaded = True
不要将显示在上方的加载宏标题与加载宏名称相混淆，该名称是加载宏的文件名。在 Add-Ins 对话框中键入该标题时必须正确拼写，但是不一定要大写匹配。
索引编号代表了加载宏在 Add-Ins 对话框的可用 Add-Ins 列表中的位置。以下示例显示了当前 PowerPoint 中加载的所有加载宏的名称。
For i = 1 To AddIns.Count
If AddIns(i).Loaded Then MsgBox AddIns(i).Name
Next
说明：可以使用 Add 方法向可用加载宏列表中添加与 PowerPoint 相关的加载宏。注意，使用该方法并不会加载加载宏。如果要加载加载宏，请在使用 Add 方法后将加载宏的 Loaded 属性设为 True。可以单步执行这些动作，如以下示例所示（注意，Add 方法使用加载宏名称而不使用标题）。
AddIns.Add("generic.ppa").Loaded = True
使用 AddIns(index) 可返回一个对已加载的加载宏的引用，其中 index 表示加载宏的标题。以下示例将变量 presAddin 设置成标题为“my ppt tools”的加载宏，并将变量 myName 设置成该加载宏的名称。
Set presAddin = AddIns("my ppt tools")
With presAddin
myName = .Name
End With
二、AddIns集合的使用
使用 AddIns 方法返回 AddIns 集合。以下示例显示 PowerPoint 中当前加载的所有加载宏的名称。
For Each ad In AddIns
If ad.Loaded Then MsgBox ad.Name
Next
可以使用 Add 方法向可用加载宏列表中添加与 PowerPoint 相关的加载宏。Add 方法将加载宏添加到列表中但不加载它。要加载它，请在使用 Add 方法后将将加载宏的 Loaded 属性设为 True。可以单步执行这些动作，如以下示例所示（注意，Add 方法使用加载宏名称而不使用标题）。
AddIns.Add("graphdrs.ppa").Loaded = True
使用 AddIns(index) 可返回单个 AddIn 对象，其中 index 表示加载宏的标题或索引编号。以下示例加载假定标题为“My Ppt Tools”的加载宏。
AddIns("my ppt tools").Loaded = True
不要把加载宏标题与加载宏名称相混淆，该标题是加载宏的文件名。在 Add-Ins 对话框中键入该标题时必须正确拼写，但是不一定要大写匹配。