Ako vytvárať a vkladať tvary v PowerPointe s VBA?

Nastavenie vlastností tvaru

Mnoho vlastností formátovania tvarov nie je nastavených vlastnosťami, ktoré sa vzťahujú priamo na  objekt Shape  alebo  ShapeRange  . Namiesto toho sú súvisiace atribúty tvaru zoskupené pod sekundárnymi objektmi, ako je napríklad  objekt FillFormat  , ktorý obsahuje všetky vlastnosti súvisiace s výplňou tvaru, alebo objekt  LinkFormat  , ktorý obsahuje všetky vlastnosti, ktoré sú jedinečné pre prepojené objekty OLE. Ak chcete nastaviť vlastnosti tvaru, musíte najprv vrátiť objekt, ktorý predstavuje množinu súvisiacich atribútov tvaru, a potom nastaviť vlastnosti tohto vráteného objektu. Napríklad použijete  vlastnosť Fill  na vrátenie  objektu FillFormat  a potom nastavíte  vlastnosť ForeColor  objektu  FillFormat  na nastavenie farby popredia výplne pre zadaný tvar, ako je znázornené v nasledujúcom príklade.

VB

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

Použitie vlastnosti alebo metódy na niekoľko tvarov súčasne

V používateľskom rozhraní je niekoľko operácií, ktoré môžete vykonať s niekoľkými vybranými tvarmi; môžete napríklad vybrať niekoľko tvarov a nastaviť všetky ich jednotlivé výplne naraz. Existujú aj ďalšie operácie, ktoré môžete vykonať len s jedným vybratým tvarom; text v tvare môžete napríklad upravovať len vtedy, ak je vybratý jeden tvar.

V jazyku Visual Basic existujú dva spôsoby, ako použiť vlastnosti a metódy na množinu tvarov. Tieto dva spôsoby vám umožňujú vykonávať akúkoľvek operáciu, ktorú môžete vykonať s jedným tvarom na škále tvarov, bez ohľadu na to, či môžete alebo nemôžete vykonať rovnakú operáciu v používateľskom rozhraní.

• Ak operácia funguje na viacerých vybratých tvaroch v používateľskom rozhraní, rovnakú operáciu môžete vykonať v jazyku Visual Basic vytvorením  kolekcie ShapeRange  , ktorá obsahuje tvary, s ktorými chcete pracovať, a použitím príslušných vlastností a metód priamo na kolekciu  ShapeRange  .

• Ak operácia nefunguje na viacerých vybratých tvaroch v používateľskom rozhraní, stále môžete operáciu vykonať v jazyku Visual Basic prejdením cez kolekciu  Shapes  alebo cez  kolekciu ShapeRange  , ktorá obsahuje tvary, s ktorými chcete pracovať, a použitím príslušných vlastností. a metódy k jednotlivým  objektom Shape  v kolekcii.

Mnoho vlastností a metód, ktoré sa aplikujú na  objekt Shape  a  kolekciu ShapeRange  , zlyhá, ak sa aplikujú na určité druhy tvarov. Napríklad  vlastnosť TextFrame  zlyhá, ak sa použije na tvar, ktorý nemôže obsahovať text. Ak si nie ste istí, že každý tvar v  kolekcii ShapeRange  môže mať aplikovanú určitú vlastnosť alebo metódu, neaplikujte túto vlastnosť alebo metódu na  kolekciu ShapeRange  . Ak chcete použiť jednu z týchto vlastností alebo metód na kolekciu tvarov, musíte prejsť cez kolekciu a otestovať každý jednotlivý tvar, aby ste sa uistili, že ide o vhodný typ tvaru, skôr než naň použijete vlastnosť alebo metódu.

Použitie vlastnosti alebo metódy na kolekciu ShapeRange

Ak môžete vykonať operáciu na viacerých vybratých tvaroch v používateľskom rozhraní súčasne, môžete vykonať programový ekvivalent vytvorením  kolekcie ShapeRange  a následným použitím príslušných vlastností alebo metód na ňu. Nasledujúci príklad vytvára rozsah tvaru, ktorý obsahuje automatické tvary s názvom „Veľká hviezda“ a „Malá hviezda“, a aplikuje na ne prechodovú výplň a aplikuje na ne prechodovú výplň.myDocument

VB

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

Nasledujú všeobecné pokyny, ako sa vlastnosti a metódy správajú, keď sú aplikované na  kolekciu ShapeRange  .

• Aplikácia metódy na kolekciu je ekvivalentná aplikácii metódy na každý jednotlivý  objekt Shape  v tejto kolekcii.

• Nastavenie hodnoty vlastnosti kolekcie je ekvivalentné nastaveniu hodnoty vlastnosti každého jednotlivého tvaru v danom rozsahu.

• Vlastnosť kolekcie, ktorá vracia konštantu, vráti hodnotu vlastnosti pre individuálny tvar v kolekcii, ak všetky tvary v kolekcii majú rovnakú hodnotu pre danú vlastnosť. Ak nie všetky tvary v kolekcii majú rovnakú hodnotu vlastnosti, vráti konštantu „zmiešaná“.

• Vlastnosť kolekcie, ktorá vracia jednoduchý dátový typ (napríklad  Long ,  Single alebo  String ), vráti hodnotu vlastnosti pre individuálny tvar, ak všetky tvary v kolekcii majú rovnakú hodnotu pre túto vlastnosť.

• Hodnotu niektorých vlastností je možné vrátiť alebo nastaviť iba vtedy, ak sa v kolekcii nachádza práve jeden tvar. Ak kolekcia obsahuje viac ako jeden tvar, vyskytne sa chyba pri spustení. Toto je vo všeobecnosti prípad návratu alebo nastavenia vlastností, keď je ekvivalentná akcia v používateľskom rozhraní možná len s jedným tvarom (akcie ako úprava textu v tvare alebo úprava bodov voľného tvaru).

Predchádzajúce pokyny platia aj pri nastavovaní vlastností tvarov, ktoré sú zoskupené pod sekundárnymi objektmi kolekcie  ShapeRange  , ako je napríklad  objekt FillFormat  . Ak sekundárny objekt predstavuje operácie, ktoré možno vykonať na viacerých vybratých objektoch v používateľskom rozhraní, budete môcť vrátiť objekt z kolekcie  ShapeRange  a nastaviť jeho vlastnosti. Môžete napríklad použiť  vlastnosť Fill  na vrátenie  objektu FillFormat  , ktorý predstavuje výplne všetkých tvarov v  kolekcii ShapeRange  . Nastavením vlastností tohto  objektu FillFormat  sa nastavia rovnaké vlastnosti pre všetky jednotlivé tvary v  kolekcii ShapeRange  .

Prechádzanie cez kolekciu Shapes alebo ShapeRange

Aj keď nemôžete vykonať operáciu s niekoľkými tvarmi v používateľskom rozhraní súčasne tak, že ich vyberiete a potom použijete príkaz, ekvivalentnú akciu môžete vykonať programovo prejdením cez kolekciu Shapes  alebo  cez  kolekciu ShapeRange  , ktorá obsahuje tvary, ktoré chcete pracovať a aplikovať príslušné vlastnosti a metódy na jednotlivé  objekty Shape  v kolekcii. Nasledujúci príklad prechádza všetkými tvarmi a pridáva text do každého tvaru, ktorý je automatickým tvarom. a pridá text ku každému tvaru, ktorý je automatickým tvarom.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

Nasledujúci príklad vytvorí  kolekciu ShapeRange  , ktorá obsahuje všetky aktuálne vybraté tvary v aktívnom okne, a nastaví text v každom tvare v kolekcii, ktorá môže obsahovať text.

VB

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

Zarovnávanie, distribúcia a zoskupovanie tvarov v rozsahu tvarov

Pomocou  metód Zarovnať  a  rozmiestniť  umiestnite množinu tvarov voči sebe navzájom alebo voči dokumentu, ktorý ich obsahuje.  Na vytvorenie jedného zoskupeného tvaru zo skupiny tvarov použite  metódu Group  alebo  Regroup .