Com crear i inserir formes a PowerPoint amb VBA?

Establiment de propietats per a una forma

Moltes propietats de format de les formes no estan establertes per propietats que s'apliquen directament a l'  objecte Shape  o  ShapeRange  . En canvi, els atributs de forma relacionats s'agrupen sota objectes secundaris, com ara l'  objecte FillFormat  , que conté totes les propietats relacionades amb el farciment de la forma, o l'  objecte LinkFormat  , que conté totes les propietats úniques dels objectes OLE enllaçats. Per establir propietats per a una forma, primer heu de retornar l'objecte que representa el conjunt d'atributs de forma relacionats i després establir les propietats d'aquest objecte retornat. Per exemple, utilitzeu la  propietat Fill  per retornar l'  objecte FillFormat  i, a continuació, establiu la  propietat ForeColor  de l'  objecte FillFormat  per establir el color de primer pla de farciment per a la forma especificada, tal com es mostra a l'exemple següent.

VB

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

Aplicar una propietat o mètode a diverses formes al mateix temps

A la interfície d'usuari, hi ha algunes operacions que podeu realitzar amb diverses formes seleccionades; per exemple, podeu seleccionar diverses formes i establir tots els seus farcits individuals alhora. Hi ha altres operacions que només podeu realitzar amb una única forma seleccionada; per exemple, només podeu editar el text d'una forma si se n'ha seleccionat una única.

A Visual Basic, hi ha dues maneres d'aplicar propietats i mètodes a un conjunt de formes. Aquestes dues maneres us permeten realitzar qualsevol operació que pugueu realitzar en una sola forma en una sèrie de formes, tant si podeu realitzar la mateixa operació com si no a la interfície d'usuari.

• Si l'operació funciona en diverses formes seleccionades a la interfície d'usuari, podeu realitzar la mateixa operació a Visual Basic construint una  col·lecció ShapeRange  que contingui les formes amb les quals voleu treballar i aplicant les propietats i mètodes adequats directament a la   col·lecció ShapeRange .

• Si l'operació no funciona en diverses formes seleccionades a la interfície d'usuari, encara podeu realitzar l'operació a Visual Basic fent un bucle per la  col·lecció Shapes  o mitjançant una  col·lecció ShapeRange  que conté les formes amb les quals voleu treballar i aplicant les propietats adequades. i mètodes als  objectes Shape individuals  de la col·lecció.

Moltes propietats i mètodes que s'apliquen a l'  objecte Shape  i a  la col·lecció ShapeRange  fallen si s'apliquen a determinats tipus de formes. Per exemple, la  propietat TextFrame  falla si s'aplica a una forma que no pot contenir text. Si no esteu segur que cada forma d'una  col·lecció ShapeRange  pot tenir una propietat o un mètode determinats aplicats, no apliqueu la propietat o el mètode a la  col·lecció ShapeRange  . Si voleu aplicar una d'aquestes propietats o mètodes a una col·lecció de formes, heu de recórrer la col·lecció i provar cada forma individual per assegurar-vos que és un tipus de forma adequat abans d'aplicar-hi la propietat o el mètode.

Aplicació d'una propietat o mètode a una col·lecció ShapeRange

Si podeu realitzar una operació sobre diverses formes seleccionades a la interfície d'usuari alhora, podeu fer l'equivalent programàtic mitjançant la construcció d'una  col·lecció ShapeRange  i després aplicant-hi les propietats o mètodes adequats. L'exemple següent construeix un rang de formes que conté les formes automàtiques anomenades "Estrella gran" i "Estrella petita" activades i els hi aplica un farciment degradat i un farciment degradat.myDocument

VB

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

Les següents són directrius generals sobre com es comporten les propietats i els mètodes quan s'apliquen a una   col·lecció ShapeRange .

• Aplicar un mètode a la col·lecció és equivalent a aplicar el mètode a cada  objecte Shape individual  d'aquesta col·lecció.

• Establir el valor d'una propietat de la col·lecció és equivalent a establir el valor de la propietat de cada forma individual d'aquest rang.

• Una propietat de la col·lecció que retorna una constant retorna el valor de la propietat per a una forma individual de la col·lecció si totes les formes de la col·lecció tenen el mateix valor per a aquesta propietat. Si no totes les formes de la col·lecció tenen el mateix valor per a la propietat, retorna la constant "mixta".

• Una propietat de la col·lecció que retorna un tipus de dades simple (com ara  Long ,  Single o  String ) retorna el valor de la propietat per a una forma individual si totes les formes de la col·lecció tenen el mateix valor per a aquesta propietat.

• El valor d'algunes propietats només es pot tornar o establir si hi ha exactament una forma a la col·lecció. Si hi ha més d'una forma a la col·lecció, es produeix un error en temps d'execució. Aquest és generalment el cas de retornar o establir propietats quan l'acció equivalent a la interfície d'usuari només és possible amb una forma única (accions com ara editar text en una forma o editar els punts d'una forma lliure).

Les directrius anteriors també s'apliquen quan configureu propietats de formes agrupades sota objectes secundaris de la  col·lecció ShapeRange  , com ara l'  objecte FillFormat  . Si l'objecte secundari representa operacions que es poden realitzar en diversos objectes seleccionats a la interfície d'usuari, podreu retornar l'objecte d'una  col·lecció ShapeRange  i establir-ne les propietats. Per exemple, podeu utilitzar la  propietat Fill  per retornar l'  objecte FillFormat  que representa els farcits de totes les formes de la  col·lecció ShapeRange  . L'establiment de les propietats d'aquest  objecte FillFormat  establirà les mateixes propietats per a totes les formes individuals de la  col·lecció ShapeRange  .

Recorre una col·lecció Shapes o ShapeRange

Fins i tot si no podeu realitzar una operació sobre diverses formes a la interfície d'usuari alhora seleccionant-les i després utilitzant una ordre, podeu realitzar l'acció equivalent mitjançant programació fent un bucle per la  col·lecció Shapes  o mitjançant una  col·lecció ShapeRange  que conté les formes que voleu treballar i aplicar les propietats i mètodes adequats als  objectes Shape individuals  de la col·lecció. L'exemple següent fa un bucle a través de totes les formes i afegeix text a cada forma que és una forma automàtica. i afegeix text a cada forma que sigui una forma automàtica.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

L'exemple següent construeix  la col·lecció ShapeRange  que conté totes les formes seleccionades actualment a la finestra activa i estableix el text de cada forma de la col·lecció que pot contenir text.

VB

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

Alinear, distribuir i agrupar formes en un rang de formes

Utilitzeu els  mètodes Alinear  i  Distribuir  per posicionar un conjunt de formes entre si o en relació amb el document que les conté. Utilitzeu el  mètode Group  o  Regroup  per formar una única forma agrupada a partir d'un conjunt de formes.