Application), який представляє всі програму PowerPoint. Модель програмування VSTO надає легкий доступ до цього об'єкта Додаток. Введення Me.Application повертає тип PowerPoint.Application. На відміну від загальних надбудов, не потрібно приводити об'єкт до правильного типу додатка Office Application, оскільки шаблон проекту VSTO встановлює правильний тип для створюваної надбудови. (Наприклад, виклик Me.Application в надбудові Word повертає об'єкт Microsoft.Office.Interop.Word.Application.)
Об'єкт додатки Application містить колекцію презентацій, яка, в свою чергу, містить об'єкт презентації Presentation. Об'єкт презентації Presentation, який представляє фактичний PPT-документ, містить колекцію слайдів, яка містить об'єкти слайдів Slide (один об'єкт слайда для кожного слайда у презентації). Кожен слайд містить колекцію форм, яка містить об'єкти форм Shape. Об'єкти форм Shape є елементами, які відображаються на слайдах, наприклад заголовки, рамки з текстом, малюнки та діаграми
Автоматизоване створення презентації
Щоб створити нову презентацію і додати її в колекцію презентацій використовуйте посилання на об'єкт докладання Application. Спочатку створіть змінну для зберігання посилання на створюваний новий об'єкт презентації Presentation. Потім все, що потрібно зробити - це викликати метод додавання Add в колекції презентацій:
Dim presentation As PowerPoint.Presentation=_
Me.Application.Presentations.Add ()
Ви будете здивовані тим, звідки з'являється об'єкт PowerPoint. Шаблон проекту VSTO автоматично додає псевдонім Imports в простір імен Microsoft.Office.Interop.PowerPoint. У сегменті імпортованих просторів імен на сторінці властивостей проекту можна побачити інші створені посилання і псевдоніми.
Автоматизоване додавання титульного сла?? Да в колекцію слайдів презентації
Титульний слайд, що містить заголовок і підзаголовок презентації, як правило, є першим слайдом у презентації. Створення нового слайда аналогічно створенню нової презентації. Щоб додати слайд в колекцію слайдів презентації, викликається метод вставити слайд AddSlide. Цей метод використовує два параметри: індекс слайда (використовується для зазначення місця вставки слайда в презентацію) і об'єкт налаштування макета customLayout.
Об'єкт налаштування макета customLayout можна створити з майстра створення слайда SlideMaster. Майстер створення слайда SlideMaster містить всі об'єкти, які можуть з'явитися на слайдах. Як видно з нижчеподаного коду, тип макета можна вибрати зі списку макетів слайдів PpSlideLayout:
Dim customLayout As PowerPoint.CustomLayout=_.SlideMaster.CustomLayouts.Item (_.PpSlideLayout.ppLayoutTitle)
Тепер за допомогою методу вставити слайд AddSlide можна створити новий слайд. Використовуйте індекс слайда 1, щоб додати слайд першим слайдом у презентації, потім передайте об'єкт налаштування макета customLayout, створений з майстра створення слайдів SlideMaster:
Dim slide as PowerPoint.Slide=_
presentation.Slides.AddSlide (1, customLayout)
Титульний слайд створений, а заголовок і підзаголовок можна додати одним рядком коду. Використовуючи створений об'єкт слайда, можна отримати доступ до вл...
