Как да създавате и вмъквате фигури в 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  обекти в колекцията. Следващият пример преминава през всички фигури и добавя текст към всяка фигура, която е AutoShape. и добавя текст към всяка фигура, която е AutoShape.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

Подравняване, разпределяне и групиране на форми в диапазон от форми

Използвайте  методите Подравняване  и  Разпределяне  , за да позиционирате набор от фигури една спрямо друга или спрямо документа, който ги съдържа. Използвайте  метода Групиране  или  метода Прегрупиране  , за да формирате единична групирана форма от набор от форми.