Kako ustvariti in vstaviti oblike v PowerPoint z VBA?

Nastavitev lastnosti za obliko

Veliko lastnosti oblikovanja oblik ni nastavljenih z lastnostmi, ki veljajo neposredno za  objekt Shape  ali  ShapeRange  . Namesto tega so povezani atributi oblike združeni pod sekundarne objekte, kot je  objekt FillFormat  , ki vsebuje vse lastnosti, ki se nanašajo na polnilo oblike, ali objekt  LinkFormat  , ki vsebuje vse lastnosti, ki so edinstvene za povezane objekte OLE. Če želite nastaviti lastnosti za obliko, morate najprej vrniti predmet, ki predstavlja niz povezanih atributov oblike, nato pa nastaviti lastnosti tega vrnjenega predmeta. Uporabite na primer  lastnost Fill ,  da vrnete  predmet FillFormat  , nato pa nastavite   lastnost  ForeColor predmeta FillFormat  , da nastavite barvo ospredja polnila za navedeno obliko, kot je prikazano v naslednjem primeru.

VB

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

Uporaba lastnosti ali metode za več oblik hkrati

V uporabniškem vmesniku je nekaj operacij, ki jih lahko izvajate z več izbranimi oblikami; na primer, izberete lahko več oblik in nastavite vsa njihova posamezna polnila hkrati. Obstajajo še druge operacije, ki jih lahko izvedete samo z eno izbrano obliko; besedilo v obliki lahko na primer urejate le, če je izbrana ena oblika.

V Visual Basicu obstajata dva načina za uporabo lastnosti in metod za niz oblik. Ta dva načina vam omogočata, da izvedete katero koli operacijo, ki jo lahko izvedete na eni sami obliki, na nizu oblik, ne glede na to, ali lahko isto operacijo izvedete v uporabniškem vmesniku ali ne.

• Če operacija deluje na več izbranih oblikah v uporabniškem vmesniku, lahko izvedete isto operacijo v Visual Basicu tako, da sestavite  zbirko ShapeRange  , ki vsebuje oblike, s katerimi želite delati, in uporabite ustrezne lastnosti in metode neposredno v zbirki  ShapeRange  .

• Če operacija ne deluje na več izbranih oblikah v uporabniškem vmesniku, lahko še vedno izvedete operacijo v Visual Basicu tako, da se pomikate po zbirki  Shapes  ali po  zbirki ShapeRange  , ki vsebuje oblike, s katerimi želite delati, in uporabite ustrezne lastnosti in metode za posamezne  objekte Shape  v zbirki.

Številne lastnosti in metode, ki veljajo za  objekt Shape  in  zbirko ShapeRange  , ne uspejo, če se uporabijo za določene vrste oblik. Na primer,  lastnost TextFrame  ne uspe, če je uporabljena za obliko, ki ne more vsebovati besedila. Če niste prepričani, da je za vsako obliko v  zbirki ShapeRange  lahko uporabljena določena lastnost ali metoda, ne uporabite lastnosti ali metode za  zbirko ShapeRange  . Če želite uporabiti eno od teh lastnosti ali metod za zbirko oblik, se morate pomikati po zbirki in preizkusiti vsako posamezno obliko, da se prepričate, da je ustrezna vrsta oblike, preden zanjo uporabite lastnost ali metodo.

Uporaba lastnosti ali metode v zbirki ShapeRange

Če lahko izvedete operacijo na več izbranih oblikah v uporabniškem vmesniku hkrati, lahko naredite programski ekvivalent tako, da sestavite  zbirko ShapeRange  in nato zanjo uporabite ustrezne lastnosti ali metode. Naslednji primer izdela obseg oblik, ki vsebuje samooblike z imenom »Velika zvezda« in »Mala zvezda« in jima uporabi gradientno polnilo ter jima uporabi gradientno polnilo.myDocument

VB

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

Sledijo splošne smernice za obnašanje lastnosti in metod, ko so uporabljene v  zbirki ShapeRange  .

• Uporaba metode za zbirko je enakovredna uporabi metode za vsak posamezen  objekt Shape  v tej zbirki.

• Nastavitev vrednosti lastnosti zbirke je enakovredna nastavitvi vrednosti lastnosti vsake posamezne oblike v tem obsegu.

• Lastnost zbirke, ki vrne konstanto, vrne vrednost lastnosti za posamezno obliko v zbirki, če imajo vse oblike v zbirki enako vrednost za to lastnost. Če nimajo vse oblike v zbirki enake vrednosti za lastnost, vrne "mešano" konstanto.

• Lastnost zbirke, ki vrne preprost podatkovni tip (kot je  Long ,  Single ali  String ), vrne vrednost lastnosti za posamezno obliko, če imajo vse oblike v zbirki enako vrednost za to lastnost.

• Vrednost nekaterih lastnosti je mogoče vrniti ali nastaviti le, če je v zbirki natanko ena oblika. Če je v zbirki več kot ena oblika, pride do napake med izvajanjem. To običajno velja za vračanje ali nastavitev lastnosti, ko je enakovredno dejanje v uporabniškem vmesniku možno le z eno samo obliko (dejanja, kot je urejanje besedila v obliki ali urejanje točk proste oblike).

Prejšnje smernice veljajo tudi, ko nastavljate lastnosti oblik, ki so združene pod sekundarne objekte zbirke  ShapeRange  , kot je  predmet FillFormat  . Če sekundarni objekt predstavlja operacije, ki jih je mogoče izvesti na več izbranih predmetih v uporabniškem vmesniku, boste lahko vrnili predmet iz zbirke  ShapeRange  in nastavili njegove lastnosti. Z lastnostjo Fill lahko na primer vrnete   predmet  FillFormat  , ki predstavlja polnila vseh oblik v  zbirki ShapeRange  . Če nastavite lastnosti tega  predmeta FillFormat  , boste nastavili enake lastnosti za vse posamezne oblike v  zbirki ShapeRange  .

Skozi zbirko Shapes ali ShapeRange

Tudi če ne morete izvesti operacije na več oblikah v uporabniškem vmesniku hkrati, tako da jih izberete in nato uporabite ukaz, lahko enakovredno dejanje izvedete programsko tako, da se pomikate po zbirki  Shapes  ali po  zbirki ShapeRange  , ki vsebuje oblike, ki jih želite delati, in uporabite ustrezne lastnosti in metode za posamezne  objekte Shape  v zbirki. Naslednji primer preleti vse oblike in vsaki obliki, ki je samooblika, doda besedilo. in doda besedilo vsaki obliki, ki je samooblika.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

Naslednji primer sestavi  zbirko ShapeRange  , ki vsebuje vse trenutno izbrane oblike v aktivnem oknu, in nastavi besedilo v vsaki obliki v zbirki, ki lahko vsebuje besedilo.

VB

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

Poravnava, porazdelitev in združevanje oblik v obsegu oblik

Uporabite  metode Poravnaj  in  Porazdeli  , da nabor oblik postavite relativno eno glede na drugo ali glede na dokument, ki jih vsebuje. Uporabite  metodo Združi  ali  Ponovno združite  , da oblikujete eno samo združeno obliko iz niza oblik.