Hvordan opretter og indsætter man former i PowerPoint med VBA?

Indstilling af egenskaber for en form

Mange formateringsegenskaber for figurer er ikke angivet af egenskaber, der gælder direkte for  Shape-  eller  ShapeRange-  objektet. I stedet er relaterede formattributter grupperet under sekundære objekter, såsom  FillFormat-  objektet, som indeholder alle de egenskaber, der relaterer til figurens fyld, eller  LinkFormat  -objektet, som indeholder alle de egenskaber, der er unikke for sammenkædede OLE-objekter. For at angive egenskaber for en form skal du først returnere det objekt, der repræsenterer sættet af relaterede formattributter, og derefter angive egenskaber for det returnerede objekt. For eksempel bruger du  Fill-  egenskaben til at returnere  FillFormat-  objektet, og derefter indstiller du  ForeColor -  egenskaben for  FillFormat-  objektet til at indstille fyld-forgrundsfarven for den angivne form, som vist i følgende eksempel.

VB

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

Anvendelse af en egenskab eller metode til flere former på samme tid

I brugergrænsefladen er der nogle handlinger, du kan udføre med flere former valgt; for eksempel kan du vælge flere former og indstille alle deres individuelle fyld på én gang. Der er andre handlinger, du kun kan udføre med en enkelt form valgt; for eksempel kan du kun redigere teksten i en figur, hvis en enkelt figur er valgt.

I Visual Basic er der to måder at anvende egenskaber og metoder på et sæt former. Disse to måder giver dig mulighed for at udføre enhver handling, som du kan udføre på en enkelt figur på en række former, uanset om du kan udføre den samme handling i brugergrænsefladen eller ej.

• Hvis handlingen virker på flere udvalgte former i brugergrænsefladen, kan du udføre den samme handling i Visual Basic ved at konstruere en  ShapeRange-  samling, der indeholder de figurer, du vil arbejde med, og anvende de relevante egenskaber og metoder direkte til  ShapeRange  -samlingen.

• Hvis handlingen ikke virker på flere udvalgte former i brugergrænsefladen, kan du stadig udføre handlingen i Visual Basic ved at gå gennem Shapes-  samlingen  eller gennem en  ShapeRange-  samling, der indeholder de figurer, du vil arbejde med, og anvende de relevante egenskaber og metoder til de enkelte  Shape-  objekter i samlingen.

Mange egenskaber og metoder, der gælder for  Shape-  objektet og  ShapeRange-  samlingen, mislykkes, hvis de anvendes på visse former for former. For eksempel  fejler egenskaben TextFrame  , hvis den anvendes på en figur, der ikke kan indeholde tekst. Hvis du ikke er sikker på, at hver form i en  ShapeRange-  samling kan have en bestemt egenskab eller metode anvendt på sig, skal du ikke anvende egenskaben eller metoden på  ShapeRange-  samlingen. Hvis du vil anvende en af ​​disse egenskaber eller metoder på en samling af figurer, skal du gå gennem samlingen og teste hver enkelt form for at sikre, at det er en passende formtype, før du anvender egenskaben eller metoden på den.

Anvendelse af en egenskab eller metode til en ShapeRange-samling

Hvis du kan udføre en operation på flere udvalgte figurer i brugergrænsefladen på samme tid, kan du udføre den programmatiske ækvivalent ved at konstruere en  ShapeRange-  samling og derefter anvende de relevante egenskaber eller metoder til den. Følgende eksempel konstruerer et formområde, der indeholder autofigurerne kaldet "Big Star" og "Little Star" på og anvender et gradueringsfyld på dem og anvender et gradientfyld på dem.myDocument

VB

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

Det følgende er generelle retningslinjer for, hvordan egenskaber og metoder opfører sig, når de anvendes på en  ShapeRange-  samling.

• At anvende en metode på samlingen svarer til at anvende metoden på hvert enkelt  Shape-  objekt i den pågældende samling.

• Indstilling af værdien af ​​en egenskab i samlingen svarer til at indstille værdien af ​​egenskaben for hver individuel form i dette område.

• En egenskab i samlingen, der returnerer en konstant, returnerer værdien af ​​egenskaben for en individuel form i samlingen, hvis alle figurer i samlingen har samme værdi for den pågældende egenskab. Hvis ikke alle figurer i samlingen har samme værdi for egenskaben, returnerer den den "blandede" konstant.

• En egenskab for samlingen, der returnerer en simpel datatype (såsom  Long ,  Single eller  String ), returnerer værdien af ​​egenskaben for en individuel form, hvis alle figurer i samlingen har den samme værdi for den pågældende egenskab.

• Værdien af ​​nogle egenskaber kan kun returneres eller indstilles, hvis der er nøjagtig én form i samlingen. Hvis der er mere end én figur i samlingen, opstår der en køretidsfejl. Dette er generelt tilfældet for returnering eller indstilling af egenskaber, når den tilsvarende handling i brugergrænsefladen kun er mulig med en enkelt form (handlinger som f.eks. redigering af tekst i en form eller redigering af punkterne i en friform).

De foregående retningslinjer gælder også, når du angiver egenskaber for figurer, der er grupperet under sekundære objekter i  ShapeRange  -samlingen, såsom  FillFormat-  objektet. Hvis det sekundære objekt repræsenterer operationer, der kan udføres på flere udvalgte objekter i brugergrænsefladen, vil du være i stand til at returnere objektet fra en  ShapeRange-  samling og indstille dets egenskaber. Du kan f.eks. bruge  Fill-  egenskaben til at returnere  FillFormat-  objektet, der repræsenterer fyld i alle figurerne i  ShapeRange-  samlingen. Indstilling af egenskaberne for dette  FillFormat-  objekt vil angive de samme egenskaber for alle de individuelle former i  ShapeRange-  samlingen.

Sløjfe gennem en Shapes- eller ShapeRange-samling

Selvom du ikke kan udføre en handling på flere figurer i brugergrænsefladen på samme tid ved at vælge dem og derefter bruge en kommando, kan du udføre den tilsvarende handling programmatisk ved at gå gennem Shapes-  samlingen  eller gennem en  ShapeRange-  samling, der indeholder de figurer, du ønsker at arbejde med og anvende passende egenskaber og metoder til de enkelte  Shape-  objekter i samlingen. Følgende eksempel gennemgår alle figurerne på og tilføjer tekst til hver figur, der er en autofigur. og tilføjer tekst til hver figur, der er en autofigur.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

Følgende eksempel konstruerer  ShapeRange-  samling, der indeholder alle de aktuelt valgte figurer i det aktive vindue, og angiver teksten i hver figur i samlingen, der kan indeholde tekst.

VB

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

Justering, fordeling og gruppering af figurer i et formområde

Brug  metoderne Juster  og  distribuer  til at placere et sæt figurer i forhold til hinanden eller i forhold til det dokument, der indeholder dem. Brug  gruppemetoden  eller  omgrupperingsmetoden  til at danne en enkelt grupperet form ud fra et sæt figurer.