Объект AddIn (PowerPoint)
Представляет одну надстройку, загруженную или не загруженную.
Объект AddIn является членом коллекции AddIns . Коллекция AddIns содержит все доступные надстройки Microsoft PowerPoint, независимо от того, загружены ли они. Коллекция не включает надстройки COM.
Используйте AddIns (index), где индекс — это название или номер индекса надстройки, чтобы вернуть один объект AddIn . В следующем примере загружается надстройка My Ppt Tools.
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 в список доступных. Однако обратите внимание, что при использовании этого метода надстройка не загружается. Чтобы загрузить надстройку, задайте для свойства Loadedнадстройки значение True после использования метода Add . Вы можете выполнить оба этих действия за один шаг, как показано в следующем примере (обратите внимание, что в методе 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
Справочник по объектной модели PowerPoint
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.