Como criar e inserir formas no PowerPoint com VBA?

Configurando propriedades para uma forma

Muitas propriedades de formatação de formas não são definidas por propriedades que se aplicam diretamente ao  objeto Shape  ou  ShapeRange  . Em vez disso, os atributos de forma relacionados são agrupados em objetos secundários, como o  objeto FillFormat  , que contém todas as propriedades relacionadas ao preenchimento da forma, ou o  objeto LinkFormat  , que contém todas as propriedades exclusivas dos objetos OLE vinculados. Para definir propriedades para uma forma, primeiro você deve retornar o objeto que representa o conjunto de atributos de forma relacionados e, em seguida, definir as propriedades desse objeto retornado. Por exemplo, você usa a  propriedade Fill  para retornar o  objeto FillFormat  e, em seguida, define a  propriedade ForeColor  do  objeto FillFormat  para definir a cor de preenchimento do primeiro plano para a forma especificada, conforme mostrado no exemplo a seguir.

VB

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

Aplicando uma propriedade ou método a diversas formas ao mesmo tempo

Na interface do usuário, existem algumas operações que você pode realizar com diversas formas selecionadas; por exemplo, você pode selecionar várias formas e definir todos os seus preenchimentos individuais de uma só vez. Existem outras operações que você só pode realizar com uma única forma selecionada; por exemplo, você só poderá editar o texto em uma forma se uma única forma estiver selecionada.

No Visual Basic, existem duas maneiras de aplicar propriedades e métodos a um conjunto de formas. Essas duas maneiras permitem que você execute qualquer operação que possa ser executada em uma única forma em uma variedade de formas, independentemente de você poder executar a mesma operação na interface do usuário ou não.

• Se a operação funcionar em várias formas selecionadas na interface do usuário, você poderá executar a mesma operação no Visual Basic construindo uma  coleção ShapeRange  que contém as formas com as quais deseja trabalhar e aplicando as propriedades e os métodos apropriados diretamente à  coleção ShapeRange  .

• Se a operação não funcionar em várias formas selecionadas na interface do usuário, você ainda poderá executar a operação no Visual Basic fazendo um loop pela  coleção Shapes  ou por meio de uma  coleção ShapeRange  que contém as formas com as quais deseja trabalhar e aplicando as propriedades apropriadas e métodos para os  objetos Shape individuais  na coleção.

Muitas propriedades e métodos que se aplicam ao  objeto Shape  e  à coleção ShapeRange  falham se aplicados a determinados tipos de formas. Por exemplo, a  propriedade TextFrame  falhará se for aplicada a uma forma que não pode conter texto. Se você não tiver certeza de que cada forma em uma  coleção ShapeRange  pode ter uma determinada propriedade ou método aplicado a ela, não aplique a propriedade ou método à  coleção ShapeRange  . Se quiser aplicar uma dessas propriedades ou métodos a uma coleção de formas, você deverá percorrer a coleção e testar cada forma individual para ter certeza de que é um tipo apropriado de forma antes de aplicar a propriedade ou o método a ela.

Aplicando uma propriedade ou método a uma coleção ShapeRange

Se você puder executar uma operação em diversas formas selecionadas na interface do usuário ao mesmo tempo, poderá fazer o equivalente programático construindo uma  coleção ShapeRange  e, em seguida, aplicando as propriedades ou métodos apropriados a ela. O exemplo a seguir constrói um intervalo de formas que contém as AutoFormas denominadas "Big Star" e "Little Star" e aplica um preenchimento gradiente a elas.myDocument

VB

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

A seguir estão diretrizes gerais sobre como as propriedades e os métodos se comportam quando são aplicados a uma  coleção ShapeRange  .

• Aplicar um método à coleção é equivalente a aplicar o método a cada  objeto Shape individual  dessa coleção.

• Definir o valor de uma propriedade da coleção equivale a definir o valor da propriedade de cada forma individual nesse intervalo.

• Uma propriedade da coleção que retorna uma constante retorna o valor da propriedade para uma forma individual na coleção se todas as formas na coleção tiverem o mesmo valor para essa propriedade. Se nem todas as formas da coleção tiverem o mesmo valor para a propriedade, ela retornará a constante "mista".

• Uma propriedade da coleção que retorna um tipo de dados simples (como  Long ,  Single ou  String ) retorna o valor da propriedade para uma forma individual se todas as formas na coleção tiverem o mesmo valor para essa propriedade.

• O valor de algumas propriedades só poderá ser retornado ou definido se houver exatamente uma forma na coleção. Se houver mais de uma forma na coleção, ocorrerá um erro em tempo de execução. Geralmente, esse é o caso para retornar ou definir propriedades quando a ação equivalente na interface do usuário só é possível com uma única forma (ações como editar texto em uma forma ou editar os pontos de uma forma livre).

As diretrizes anteriores também se aplicam quando você define propriedades de formas agrupadas em objetos secundários da  coleção ShapeRange  , como o  objeto FillFormat  . Se o objeto secundário representar operações que podem ser executadas em vários objetos selecionados na interface do usuário, você poderá retornar o objeto de uma  coleção ShapeRange  e definir suas propriedades. Por exemplo, você pode usar a  propriedade Fill  para retornar o  objeto FillFormat  que representa os preenchimentos de todas as formas na  coleção ShapeRange  . Definir as propriedades deste  objeto FillFormat  definirá as mesmas propriedades para todas as formas individuais na  coleção ShapeRange  .

Percorrendo uma coleção Shapes ou ShapeRange

Mesmo que você não possa executar uma operação em diversas formas na interface do usuário ao mesmo tempo selecionando-as e depois usando um comando, você pode executar a ação equivalente programaticamente percorrendo a  coleção Shapes  ou por meio de uma  coleção ShapeRange  que contém as formas que você deseja. deseja trabalhar e aplicando as propriedades e métodos apropriados aos  objetos Shape individuais  na coleção. O exemplo a seguir percorre todas as formas e adiciona texto a cada forma que é uma AutoForma. e adiciona texto a cada forma que é uma AutoForma.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

O exemplo a seguir constrói  uma coleção ShapeRange  que contém todas as formas atualmente selecionadas na janela ativa e define o texto em cada forma da coleção que pode conter texto.

VB

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

Alinhar, distribuir e agrupar formas em um intervalo de formas

Use os  métodos Align  e  Distribute  para posicionar um conjunto de formas em relação umas às outras ou em relação ao documento que as contém. Use o  método Group  ou o  método Regroup  para formar uma única forma agrupada a partir de um conjunto de formas.