Dzwebs.Net

撰写电脑技术杂文十余年

PPT之AddIn对象和AddIns集合

Admin | 2012-9-8 9:44:19 | 被阅次数 | 4698

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  一、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 对话框中键入该标题时必须正确拼写,但是不一定要大写匹配。


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231