Як створювати та вставляти фігури в PowerPoint за допомогою VBA?

Налаштування властивостей фігури

Багато властивостей форматування фігур не встановлюються властивостями, які застосовуються безпосередньо до  об’єкта Shape  або  ShapeRange  . Натомість пов’язані атрибути фігури групуються під другорядними об’єктами, такими як  об’єкт FillFormat  , який містить усі властивості, пов’язані із заливкою фігури, або об’єкт  LinkFormat  , який містить усі властивості, унікальні для пов’язаних об’єктів OLE. Щоб встановити властивості для фігури, ви повинні спочатку повернути об’єкт, який представляє набір пов’язаних атрибутів фігури, а потім встановити властивості цього повернутого об’єкта. Наприклад, ви використовуєте  властивість Fill  , щоб повернути  об’єкт FillFormat  , а потім установлюєте  властивість ForeColor  об’єкта  FillFormat  , щоб установити колір переднього плану заливки для вказаної фігури, як показано в наступному прикладі.

VB

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Fill.ForeColor.RGB = RGB(255, 0, 0)

Застосування властивості або методу до кількох фігур одночасно

В інтерфейсі користувача є деякі операції, які можна виконувати з кількома вибраними фігурами; наприклад, ви можете вибрати кілька фігур і встановити всі їхні індивідуальні заливки одночасно. Існують інші операції, які можна виконувати лише з однією вибраною фігурою; наприклад, ви можете редагувати текст у фігурі, лише якщо вибрано одну фігуру.

У Visual Basic є два способи застосування властивостей і методів до набору фігур. Ці два способи дозволяють виконувати будь-яку операцію, яку можна виконати з однією фігурою, над кількома фігурами, незалежно від того, чи можна виконати одну операцію в інтерфейсі користувача.

• Якщо операція працює над декількома вибраними фігурами в інтерфейсі користувача, ви можете виконати ту саму операцію у Visual Basic, створивши  колекцію ShapeRange  , яка містить фігури, з якими ви хочете працювати, і застосувавши відповідні властивості та методи безпосередньо до колекції  ShapeRange  .

• Якщо операція не працює з кількома вибраними фігурами в інтерфейсі користувача, ви все одно можете виконати операцію у Visual Basic, пройшовши циклом колекцію  Shapes  або  колекцію ShapeRange  , яка містить фігури, з якими ви хочете працювати, і застосувавши відповідні властивості і методи для окремих  об’єктів Shape  у колекції.

Багато властивостей і методів, які застосовуються до  об’єкта Shape  і  колекції ShapeRange  , не працюють, якщо їх застосувати до певних видів фігур. Наприклад,  властивість TextFrame  не працює, якщо її застосувати до форми, яка не може містити текст. Якщо ви не впевнені, що кожна фігура в  колекції ShapeRange  може мати певну властивість або метод, застосований до неї, не застосовуйте властивість або метод до  колекції ShapeRange  . Якщо ви хочете застосувати одну з цих властивостей або методів до колекції фігур, ви повинні прокрутити колекцію та перевірити кожну окрему фігуру, щоб переконатися, що це відповідний тип фігури, перш ніж застосовувати до неї властивість або метод.

Застосування властивості або методу до колекції ShapeRange

Якщо ви можете виконати операцію над кількома вибраними фігурами в інтерфейсі користувача одночасно, ви можете виконати програмний еквівалент, побудувавши колекцію  ShapeRange  , а потім застосувавши до неї відповідні властивості або методи. У наведеному нижче прикладі створюється діапазон фігур, який містить автофігури з іменами «Велика зірка» та «Маленька зірка», і застосовує до них градієнтну заливку та застосовує до них градієнтну заливку.myDocument

VB

Set myDocument = ActivePresentation.Slides(1) 
Set myRange = myDocument.Shapes _ 
    .Range(Array("Big Star", "Little Star")) 
myRange.Fill.PresetGradient msoGradientHorizontal, _ 
    1, msoGradientBrass

Нижче наведено загальні вказівки щодо поведінки властивостей і методів, коли вони застосовуються до  колекції ShapeRange  .

• Застосування методу до колекції еквівалентно застосуванню методу до кожного окремого  об’єкта Shape  у цій колекції.

• Встановлення значення властивості колекції еквівалентно встановленню значення властивості кожної окремої фігури в цьому діапазоні.

• Властивість колекції, яка повертає константу, повертає значення властивості для окремої фігури в колекції, якщо всі фігури в колекції мають однакове значення цієї властивості. Якщо не всі форми в колекції мають однакове значення властивості, вона повертає «змішану» константу.

• Властивість колекції, яка повертає простий тип даних (наприклад,  Long ,  Single або  String ), повертає значення властивості для окремої фігури, якщо всі фігури в колекції мають однакове значення цієї властивості.

• Значення деяких властивостей можна повернути або встановити, лише якщо в колекції є рівно одна фігура. Якщо в колекції є більше ніж одна фігура, виникає помилка виконання. Зазвичай це стосується повернення або налаштування властивостей, коли еквівалентна дія в інтерфейсі користувача можлива лише з однією фігурою (такі дії, як редагування тексту у формі або редагування точок довільної форми).

Попередні вказівки також застосовуються, коли ви встановлюєте властивості фігур, згрупованих під вторинними об’єктами колекції  ShapeRange  , наприклад  об’єкт FillFormat  . Якщо вторинний об’єкт представляє операції, які можна виконати над кількома вибраними об’єктами в інтерфейсі користувача, ви зможете повернути об’єкт із колекції  ShapeRange  та встановити його властивості. Наприклад, ви можете використовувати  властивість Fill  , щоб повернути  об’єкт FillFormat  , який представляє заливки всіх фігур у  колекції ShapeRange  . Налаштування властивостей цього  об’єкта FillFormat  встановить однакові властивості для всіх окремих фігур у  колекції ShapeRange  .

Перегляд колекції Shapes або ShapeRange

Навіть якщо ви не можете виконати операцію з кількома фігурами в інтерфейсі користувача одночасно, вибравши їх і використовуючи команду, ви можете виконати еквівалентну дію програмним шляхом, пройшовши циклом колекцію Shapes  або  колекцію  ShapeRange  , яка містить фігури, які ви з якими ви хочете працювати, і застосовуючи відповідні властивості та методи до окремих  об’єктів Shape  у колекції. У наведеному нижче прикладі циклічно переглядають усі фігури та додають текст до кожної фігури, яка є автофігурою. і додає текст до кожної фігури, яка є автофігурою.myDocument

VB

Set myDocument = ActivePresentation.Slides(1) 
For Each sh In myDocument.Shapes 
    If sh.Type = msoAutoShape Then 
        sh.TextFrame.TextRange.InsertAfter " (version 1)" 
    End If 
Next

У наступному прикладі створюється  колекція ShapeRange  , яка містить усі поточні вибрані фігури в активному вікні, і встановлюється текст у кожній фігурі колекції, яка може містити текст.

VB

For Each sh in ActiveWindow.Selection.ShapeRange
    If sh.HasTextFrame Then
        sh.TextFrame.TextRange = "Initially selected"
    End If
Next

Вирівнювання, розподіл і групування фігур у діапазоні фігур

Використовуйте  методи Align  і  Distribute  , щоб розташувати набір фігур відносно одна одної або документа, який їх містить. Використовуйте  метод Group  або  метод Regroup  , щоб створити одну згруповану фігуру з набору фігур.