Hoe vormen maken en invoegen in PowerPoint met VBA?

Eigenschappen voor een vorm instellen

Veel opmaakeigenschappen van vormen worden niet bepaald door eigenschappen die rechtstreeks van toepassing zijn op het  Shape-  of  ShapeRange  -object. In plaats daarvan worden gerelateerde vormkenmerken gegroepeerd onder secundaire objecten, zoals het  FillFormat-  object, dat alle eigenschappen bevat die betrekking hebben op de vulling van de vorm, of het  LinkFormat-  object, dat alle eigenschappen bevat die uniek zijn voor gekoppelde OLE-objecten. Om eigenschappen voor een vorm in te stellen, moet u eerst het object retourneren dat de reeks gerelateerde vormattributen vertegenwoordigt en vervolgens de eigenschappen van dat geretourneerde object instellen. U gebruikt bijvoorbeeld de  eigenschap Fill om het object FillFormat  te retourneren   en vervolgens stelt u de  eigenschap ForeColor  van het  object FillFormat in  om de voorgrondkleur van de vulling in te stellen voor de opgegeven vorm, zoals weergegeven in het volgende voorbeeld.

V.B

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

Een eigenschap of methode tegelijkertijd op meerdere vormen toepassen

In de gebruikersinterface zijn er enkele bewerkingen die u kunt uitvoeren met verschillende geselecteerde vormen; U kunt bijvoorbeeld meerdere vormen selecteren en al hun individuele vullingen in één keer instellen. Er zijn andere bewerkingen die u alleen kunt uitvoeren als u één enkele vorm hebt geselecteerd; U kunt de tekst in een vorm bijvoorbeeld alleen bewerken als er één vorm is geselecteerd.

In Visual Basic zijn er twee manieren om eigenschappen en methoden toe te passen op een reeks vormen. Op deze twee manieren kunt u elke bewerking uitvoeren die u op een enkele vorm kunt uitvoeren op een reeks vormen, ongeacht of u dezelfde bewerking wel of niet in de gebruikersinterface kunt uitvoeren.

• Als de bewerking werkt op meerdere geselecteerde vormen in de gebruikersinterface, kunt u dezelfde bewerking uitvoeren in Visual Basic door een  ShapeRange-  collectie samen te stellen die de vormen bevat waarmee u wilt werken, en de juiste eigenschappen en methoden rechtstreeks op de  ShapeRange-  collectie toe te passen.

• Als de bewerking niet werkt op meerdere geselecteerde vormen in de gebruikersinterface, kunt u de bewerking nog steeds uitvoeren in Visual Basic door de  Shapes-  collectie of een  ShapeRange-  collectie te doorlopen die de vormen bevat waarmee u wilt werken, en de juiste eigenschappen toe te passen. en methoden voor de afzonderlijke  Shape-  objecten in de verzameling.

Veel eigenschappen en methoden die van toepassing zijn op het  Shape-  object en  de ShapeRange-  verzameling mislukken als ze worden toegepast op bepaalde soorten vormen. De eigenschap TextFrame mislukt bijvoorbeeld   als deze wordt toegepast op een vorm die geen tekst kan bevatten. Als u er niet zeker van bent dat op elke vorm in een  ShapeRange-  verzameling een bepaalde eigenschap of methode kan worden toegepast, pas de eigenschap of methode dan niet toe op de  ShapeRange-  verzameling. Als u een van deze eigenschappen of methoden op een verzameling vormen wilt toepassen, moet u de verzameling doorlopen en elke individuele vorm testen om er zeker van te zijn dat het een geschikt vormtype is voordat u de eigenschap of methode erop toepast.

Een eigenschap of methode toepassen op een ShapeRange-verzameling

Als u tegelijkertijd een bewerking op meerdere geselecteerde vormen in de gebruikersinterface kunt uitvoeren, kunt u het programmatische equivalent uitvoeren door een  ShapeRange-  verzameling samen te stellen en er vervolgens de juiste eigenschappen of methoden op toe te passen. In het volgende voorbeeld wordt een vormbereik geconstrueerd dat de AutoVormen met de namen "Grote Ster" en "Kleine Ster" bevat en er een verloopvulling op toepast en er een verloopvulling op toepast.myDocument

V.B

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

Hieronder volgen algemene richtlijnen voor hoe eigenschappen en methoden zich gedragen wanneer ze worden toegepast op een  ShapeRange-  verzameling.

• Het toepassen van een methode op de verzameling is gelijk aan het toepassen van de methode op elk afzonderlijk  Shape-  object in die verzameling.

• Het instellen van de waarde van een eigenschap van de verzameling is gelijk aan het instellen van de waarde van de eigenschap van elke individuele vorm in dat bereik.

• Een eigenschap van de collectie die een constante retourneert, retourneert de waarde van de eigenschap voor een individuele vorm in de collectie als alle vormen in de collectie dezelfde waarde voor die eigenschap hebben. Als niet alle vormen in de verzameling dezelfde waarde voor de eigenschap hebben, wordt de constante 'gemengd' geretourneerd.

• Een eigenschap van de verzameling die een eenvoudig gegevenstype retourneert (zoals  Long ,  Single of  String ) retourneert de waarde van de eigenschap voor een individuele vorm als alle vormen in de verzameling dezelfde waarde voor die eigenschap hebben.

• De waarde van sommige eigenschappen kan alleen worden geretourneerd of ingesteld als er precies één vorm in de verzameling aanwezig is. Als de verzameling meer dan één vorm bevat, treedt er een runtimefout op. Dit is over het algemeen het geval voor het retourneren of instellen van eigenschappen wanneer de equivalente actie in de gebruikersinterface alleen mogelijk is met een enkele vorm (acties zoals het bewerken van tekst in een vorm of het bewerken van de punten van een vrije vorm).

De voorgaande richtlijnen zijn ook van toepassing wanneer u eigenschappen instelt van vormen die zijn gegroepeerd onder secundaire objecten van de  ShapeRange-  collectie, zoals het  FillFormat-  object. Als het secundaire object bewerkingen vertegenwoordigt die kunnen worden uitgevoerd op meerdere geselecteerde objecten in de gebruikersinterface, kunt u het object retourneren uit een  ShapeRange-  verzameling en de eigenschappen ervan instellen. U kunt bijvoorbeeld de  eigenschap Fill gebruiken om het object FillFormat  te retourneren   dat de vullingen van alle vormen in de  ShapeRange-  collectie vertegenwoordigt. Als u de eigenschappen van dit  FillFormat-  object instelt, worden dezelfde eigenschappen ingesteld voor alle afzonderlijke vormen in de  ShapeRange-  collectie.

Door een Shapes- of ShapeRange-verzameling bladeren

Zelfs als u niet tegelijkertijd een bewerking op meerdere vormen in de gebruikersinterface kunt uitvoeren door ze te selecteren en vervolgens een opdracht te gebruiken, kunt u de equivalente actie programmatisch uitvoeren door door de  Shapes-  verzameling te bladeren of door een  ShapeRange-  verzameling die de vormen bevat die u wilt gebruiken. waarmee u wilt werken en de juiste eigenschappen en methoden wilt toepassen op de afzonderlijke  Shape-  objecten in de verzameling. In het volgende voorbeeld worden alle vormen doorlopen en wordt tekst toegevoegd aan elke vorm die een AutoVorm is. en voegt tekst toe aan elke vorm die een AutoVorm is.myDocument

V.B

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

In het volgende voorbeeld wordt een  ShapeRange-  verzameling samengesteld die alle momenteel geselecteerde vormen in het actieve venster bevat, en wordt de tekst in elke vorm in de verzameling ingesteld die tekst kan bevatten.

V.B

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

Vormen uitlijnen, distribueren en groeperen in een vormbereik

Gebruik de  methoden Uitlijnen  en  Verdelen  om een ​​reeks vormen ten opzichte van elkaar of ten opzichte van het document dat ze bevat te positioneren. Gebruik de  Group-  methode of de  Regroup-  methode om één gegroepeerde vorm te vormen uit een reeks vormen.