Hvernig á að búa til og setja inn form í PowerPoint með VBA?

Stilla eiginleika fyrir form

Margir snið eiginleikar forma eru ekki stilltir af eiginleikum sem eiga beint við  Shape  eða  ShapeRange  hlutinn. Þess í stað eru tengdir formeiginleikar flokkaðir undir aukahluti, eins og  FillFormat  hlutinn, sem inniheldur alla eiginleika sem tengjast fyllingu formsins, eða  LinkFormat  hluturinn, sem inniheldur alla eiginleika sem eru einstakir fyrir tengda OLE hluti. Til að stilla eiginleika fyrir lögun, verður þú fyrst að skila hlutnum sem táknar mengið skyldra formeiginleika og síðan stilla eiginleika þess hluts sem skilað er. Til dæmis notarðu  Fill  eiginleikann til að skila  FillFormat  hlutnum og síðan stillirðu  ForeColor  eiginleika  FillFormat  hlutarins til að stilla fyllingarforgrunnslitinn fyrir tilgreinda lögun, eins og sýnt er í eftirfarandi dæmi.

VB

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

Að beita eign eða aðferð á nokkur form á sama tíma

Í notendaviðmótinu eru nokkrar aðgerðir sem þú getur framkvæmt með nokkrum formum valin; til dæmis geturðu valið nokkur form og stillt allar einstakar fyllingar þeirra í einu. Það eru aðrar aðgerðir sem þú getur aðeins framkvæmt með valinni einni lögun; til dæmis er aðeins hægt að breyta textanum í form ef eitt form er valið.

Í Visual Basic eru tvær leiðir til að beita eiginleikum og aðferðum á sett af formum. Þessar tvær leiðir leyfa þér að framkvæma hvaða aðgerð sem þú getur framkvæmt á einni lögun á ýmsum formum, hvort sem þú getur framkvæmt sömu aðgerð í notendaviðmótinu eða ekki.

• Ef aðgerðin virkar á mörgum völdum formum í notendaviðmótinu er hægt að framkvæma sömu aðgerðina í Visual Basic með því að smíða  ShapeRange  safn sem inniheldur form sem þú vilt vinna með og beita viðeigandi eiginleikum og aðferðum beint á  ShapeRange  safnið.

• Ef aðgerðin virkar ekki á mörgum völdum formum í notendaviðmótinu geturðu samt framkvæmt aðgerðina í Visual Basic með því að fara í gegnum  Shapes  safnið eða í gegnum  ShapeRange  safn sem inniheldur form sem þú vilt vinna með og nota viðeigandi eiginleika og aðferðir við einstaka  Shape  hluti í safninu.

Margir eiginleikar og aðferðir sem eiga við  Shape  hlutinn og  ShapeRange  safnið mistakast ef þær eru notaðar á ákveðnar tegundir af formum. Til dæmis  mistekst TextFrame  eignin ef hún er notuð á form sem getur ekki innihaldið texta. Ef þú ert ekki viss um að hvert form í  ShapeRange  safni geti haft ákveðna eiginleika eða aðferð notaða á það, ekki nota eiginleikann eða aðferðina á  ShapeRange  safnið. Ef þú vilt beita einum af þessum eiginleikum eða aðferðum á safn af formum, verður þú að fara í gegnum safnið og prófa hvert einstakt form til að ganga úr skugga um að það sé viðeigandi tegund af lögun áður en eiginleikanum eða aðferðinni er beitt á það.

Að beita eign eða aðferð á ShapeRange safn

Ef þú getur framkvæmt aðgerð á mörgum völdum formum í notendaviðmótinu á sama tíma geturðu gert forritunarsamsvarið með því að smíða  ShapeRange  safn og síðan beita viðeigandi eiginleikum eða aðferðum á það. Eftirfarandi dæmi smíðar formsvið sem inniheldur sjálfvirk form sem heita "Stóra stjarnan" og "Litla stjarnan" á og beitir hallafyllingu á þau og beitir hallafyllingu á þau.myDocument

VB

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

Eftirfarandi eru almennar leiðbeiningar um hvernig eiginleikar og aðferðir hegða sér þegar þeim er beitt á  ShapeRange  safn.

• Að beita aðferð á safnið jafngildir því að beita aðferðinni á hvern einstakan  Shape  hlut í því safni.

• Að stilla verðmæti eignar í safninu jafngildir því að stilla gildi eignar hvers einstaks forms á því sviði.

• Eiginleiki safnsins sem skilar fasta skilar verðmæti eignarinnar fyrir einstaka form í safninu ef öll form safnsins hafa sama gildi fyrir þá eign. Ef ekki öll form í safninu hafa sama gildi fyrir eignina skilar það „blanduðum“ fastanum.

• Eiginleiki safnsins sem skilar einfaldri gagnagerð (eins og  Long ,  Single , eða  String ) skilar gildi eignarinnar fyrir einstaka lögun ef öll form í safninu hafa sama gildi fyrir þá eiginleika.

• Gildi sumra eigna er aðeins hægt að skila eða stilla ef það er nákvæmlega eitt form í safninu. Ef það eru fleiri en ein lögun í safninu kemur upp keyrsluvilla. Þetta á almennt við um að skila eða stilla eiginleika þegar samsvarandi aðgerð í notendaviðmótinu er aðeins möguleg með einni lögun (aðgerðir eins og að breyta texta í formi eða breyta punktum frjálsrar myndar).

Undanfarandi leiðbeiningar eiga einnig við þegar verið er að stilla eiginleika forma sem eru flokkuð undir aukahluti ShapeRange safnsins  ,  eins og  FillFormat  hlutinn. Ef aukahluturinn táknar aðgerðir sem hægt er að framkvæma á mörgum völdum hlutum í notendaviðmótinu, muntu geta skilað hlutnum úr  ShapeRange  safni og stillt eiginleika hans. Til dæmis er hægt að nota  Fill  eiginleikann til að skila  FillFormat  hlutnum sem táknar fyllingar allra formanna í  ShapeRange  safninu. Með því að stilla eiginleika þessa  FillFormat  hluts mun það setja sömu eiginleika fyrir öll einstök form í  ShapeRange  safninu.

Að fara í gegnum Shapes eða ShapeRange safn

Jafnvel þó að þú getir ekki framkvæmt aðgerð á nokkrum formum í notendaviðmótinu á sama tíma með því að velja þau og nota síðan skipun, geturðu framkvæmt samsvarandi aðgerð forritunarlega með því að fara í gegnum Shapes safnið  eða  í gegnum  ShapeRange  safn sem inniheldur formin sem þú vilja vinna með og beita viðeigandi eiginleikum og aðferðum á einstaka  Shape  hluti í safninu. Eftirfarandi dæmi fer í gegnum öll formin á og bætir texta við hvert form sem er AutoShape. og bætir texta við hvert form sem er AutoShape.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

Eftirfarandi dæmi smíðar  ShapeRange  safn sem inniheldur öll þau form sem eru valin í virka glugganum og stillir textann í hvert form í safninu sem getur innihaldið texta.

VB

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

Samræma, dreifa og flokka form í formsviði

Notaðu  aðferðirnar Align  og  Distribute  til að staðsetja safn af formum miðað við hvert annað eða miðað við skjalið sem inniheldur þau. Notaðu  Group  aðferðina eða  Regroup  aðferðina til að mynda eitt flokkað form úr safni af formum.