Kā izveidot un ievietot formas programmā PowerPoint, izmantojot VBA?

Formas īpašību iestatīšana

Daudzus formu formatēšanas rekvizītus nenosaka rekvizīti, kas attiecas tieši uz  objektu Shape  vai  ShapeRange  . Tā vietā saistītie formas atribūti tiek grupēti zem sekundārajiem objektiem, piemēram,  objektā FillFormat  , kas satur visus rekvizītus, kas attiecas uz formas aizpildījumu, vai  LinkFormat  objektā, kurā ir visi saistītie OLE objektiem unikālie rekvizīti. Lai iestatītu formas rekvizītus, vispirms ir jāatgriež objekts, kas attēlo saistīto formas atribūtu kopu, un pēc tam jāiestata atgrieztā objekta rekvizīti. Piemēram, jūs izmantojat  rekvizītu Fill  , lai atgrieztu  FillFormat  objektu, un pēc tam iestatāt  objekta FillFormat  rekvizītu  ForeColor  , lai iestatītu aizpildījuma priekšplāna krāsu norādītajai formai, kā parādīts nākamajā piemērā.

VB

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

Īpašuma vai metodes pielietošana vairākām formām vienlaikus

Lietotāja saskarnē ir dažas darbības, kuras varat veikt, atlasot vairākas formas; piemēram, varat atlasīt vairākas formas un vienlaikus iestatīt visus to individuālos aizpildījumus. Ir arī citas darbības, kuras varat veikt, tikai atlasot vienu formu; piemēram, formas tekstu var rediģēt tikai tad, ja ir atlasīta viena forma.

Programmā Visual Basic ir divi veidi, kā lietot rekvizītus un metodes formu kopai. Šie divi veidi ļauj veikt jebkuru darbību, ko varat veikt vienai formai virknē formu neatkarīgi no tā, vai varat veikt vienu un to pašu darbību lietotāja interfeisā.

• Ja operācija darbojas ar vairākām atlasītajām formām lietotāja saskarnē, varat veikt to pašu darbību programmā Visual Basic, izveidojot  ShapeRange  kolekciju, kurā ir ietvertas formas, ar kurām vēlaties strādāt, un piemērojot atbilstošos rekvizītus un metodes tieši  ShapeRange  kolekcijai.

• Ja operācija nedarbojas ar vairākām lietotāja saskarnē atlasītajām formām, jūs joprojām varat veikt operāciju programmā Visual Basic, pārlūkojot kolekciju  Shapes  vai  ShapeRange  kolekciju, kas satur formas, ar kurām vēlaties strādāt, un piemērojot atbilstošos rekvizītus. un metodes atsevišķiem  Shape  objektiem kolekcijā.

Daudzi rekvizīti un metodes, kas attiecas uz  Shape  objektu un  ShapeRange  kolekciju, neizdodas, ja tiek lietotas noteikta veida formām. Piemēram,  rekvizīts TextFrame  neizdodas, ja tiek lietots formai, kas nevar saturēt tekstu. Ja neesat pārliecināts, ka katrai formai  ShapeRange  kolekcijā var būt lietots noteikts rekvizīts vai metode, nelietojiet šo rekvizītu vai metodi  ShapeRange  kolekcijai. Ja vēlaties lietot kādu no šīm īpašībām vai metodēm formu kolekcijai, jums ir jāpārskata kolekcija un jāpārbauda katra atsevišķa forma, lai pārliecinātos, ka tā ir piemērota veida forma, pirms lietojat tai īpašību vai metodi.

Īpašuma vai metodes lietošana ShapeRange kolekcijai

Ja vienlaikus varat veikt darbību ar vairākām atlasītajām formām lietotāja saskarnē, varat veikt programmatisko ekvivalentu, izveidojot  ShapeRange  kolekciju un pēc tam piemērojot tai atbilstošos rekvizītus vai metodes. Tālāk sniegtajā piemērā ir izveidots formu diapazons, kurā ir iekļautas automātiskās formas ar nosaukumu "Lielā zvaigzne" un "Mazā zvaigzne", un tām tiek lietots gradienta aizpildījums un tiek lietots gradienta aizpildījums.myDocument

VB

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

Tālāk ir sniegtas vispārīgas vadlīnijas par to, kā rekvizīti un metodes darbojas, kad tās tiek lietotas  ShapeRange  kolekcijai.

• Metodes lietošana kolekcijai ir līdzvērtīga metodes lietošanai katram atsevišķam  Shape  objektam šajā kolekcijā.

• Kolekcijas rekvizīta vērtības iestatīšana ir līdzvērtīga katras atsevišķas formas rekvizīta vērtības iestatīšanai šajā diapazonā.

• Kolekcijas rekvizīts, kas atgriež konstanti, atgriež rekvizīta vērtību atsevišķai formai kolekcijā, ja visām kolekcijas formām ir vienāda šī īpašuma vērtība. Ja ne visām kolekcijas formām ir vienāda īpašuma vērtība, tā atgriež "jaukto" konstanti.

• Kolekcijas rekvizīts, kas atgriež vienkāršu datu tipu (piemēram,  Long ,  Single vai  String ), atgriež rekvizīta vērtību atsevišķai formai, ja visām kolekcijas formām šim īpašumam ir vienāda vērtība.

• Dažu rekvizītu vērtību var atgriezt vai iestatīt tikai tad, ja kolekcijā ir tieši viena forma. Ja kolekcijā ir vairāk nekā viena forma, rodas izpildlaika kļūda. Tas parasti attiecas uz rekvizītu atgriešanu vai iestatīšanu, kad līdzvērtīga darbība lietotāja saskarnē ir iespējama tikai ar vienu formu (tādas darbības kā teksta rediģēšana formā vai brīvas formas punktu rediģēšana).

Iepriekš minētās vadlīnijas ir spēkā arī tad, ja iestatāt formu rekvizītus, kas ir grupēti zem  ShapeRange  kolekcijas sekundārajiem objektiem, piemēram,  objektā FillFormat  . Ja sekundārais objekts apzīmē darbības, kuras lietotāja saskarnē var veikt ar vairākiem atlasītajiem objektiem, jūs varēsit atgriezt objektu no  ShapeRange  kolekcijas un iestatīt tā rekvizītus. Piemēram, varat izmantot  rekvizītu Fill  , lai atgrieztu  FillFormat objektu, kas attēlo visu ShapeRange kolekcijas  formu aizpildījumus   . Iestatot šī FillFormat objekta rekvizītus,   tiks iestatīti vienādi rekvizīti visām atsevišķajām formām  ShapeRange  kolekcijā.

Pārlūkojiet kolekciju Shapes vai ShapeRange

Pat ja lietotāja interfeisā nevar veikt darbību ar vairākām formām vienlaikus, atlasot tās un pēc tam izmantojot komandu, varat veikt līdzvērtīgu darbību programmatiski, pārlūkojot kolekciju Shapes  vai  ShapeRange  kolekciju  , kas satur jūsu formas. vēlaties strādāt ar un piemērot atbilstošās īpašības un metodes atsevišķiem  Shape  objektiem kolekcijā. Nākamajā piemērā tiek aplūkotas visas ieslēgtās formas un pievienots teksts katrai formai, kas ir automātiskā forma. un pievieno tekstu katrai formai, kas ir automātiskā forma.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

Nākamajā piemērā ir izveidota  ShapeRange  kolekcija, kurā ir visas pašlaik atlasītās formas aktīvajā logā, un tiek iestatīts teksts katrā kolekcijas formā, kurā var būt teksts.

VB

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

Formu līdzināšana, sadalīšana un grupēšana formu diapazonā

Izmantojiet  līdzināšanas  un  izplatīšanas  metodes, lai pozicionētu formu kopu attiecībā pret otru vai attiecībā pret dokumentu, kurā tās ir. Izmantojiet  grupu  metodi vai  pārgrupēšanas  metodi, lai no formu kopas izveidotu vienu grupētu formu.