Klasse Designs (PowerPoint VBA)

Die Klasse Designs stellt eine Auflistung von Folienentwurfsvorlagen dar.

Um eine Designs -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim dsgs as Designs
Set dsgs = ActivePresentation.Designs

Klassen Variablen vom Typ Designs können mit der Prozedur Presentation.Designs festgelegt werden

Add

Gibt ein Design -Objekt zurück, das eine neue Folienentwurfsvorlage darstellt.

Add (designName, Index)

Dim strdesignName As String: strdesignName = 
Dim dsg As Design
Set dsg = ActivePresentation.Designs.Add(designName:=strdesignName)

Arguments

Ein benanntes Argument

designName (String) - Der Name der neuen Entwurfsvorlage.

Optional arguments

Das folgendes Argument ist optional

Index (Long) - Die Indexnummer des Entwurfs in der Designs -Auflistung. Der Standardwert ist-1, was bedeutet, dass beim Weglassen des Index-Parameters das neue Foliendesign am Ende vorhandener Foliendesigns hinzugefügt wird.

Clone

Erstellt eine Kopie eines Design -Objekts.

Clone (pOriginal, Index)

Dim dsgClone As Design
Set dsgClone = ActivePresentation.Designs.Clone(pOriginal:=)

Arguments

Ein benanntes Argument

pOriginal (Design) - Design -Objekt. Der ursprüngliche Entwurf.

Optional arguments

Das folgendes Argument ist optional

Index (Long) - Die Indexposition in der Designs -Auflistung, in die das Design kopiert wird. Wenn Index weggelassen wird, wird die kopierte Entwurfsvorlage am Ende der Designs -Auflistung hinzugefügt.

Count

Gibt die Anzahl von Objekten in der angegebenen Auflistung zurück. Schreibgeschützt.

Dim lngCount As Long
lngCount = ActivePresentation.Designs.Count

Item

Gibt ein einzelnes Design -Objekt aus der angegebenen Designs -Auflistung zurück.

Item (Index)

Index: Der Name oder die Indexnummer des einzelnen Design -Objekts in der Auflistung, das zurückgegeben werden soll.

Dim dsg As Design
Set dsg = ActivePresentation.Designs(Index:=1)

Load

Gibt ein Design -Objekt, das eine Entwurfsvorlage in die Masterliste der angegebenen Präsentation geladen darstellt.

Load (TemplateName, Index)

Dim strTemplateName As String: strTemplateName = 
Dim dsgLoad As Design
Set dsgLoad = ActivePresentation.Designs.Load(TemplateName:=strTemplateName)

Arguments

Ein benanntes Argument

TemplateName (String) - Der Pfad für die Entwurfsvorlage.

Optional arguments

Das folgendes Argument ist optional

Index (Long) - The index number of the design template in the collection of design templates.The index number of the design template in the collection of design templates. The default is -1, which means the design template is added to the end of the list of designs in the presentation.The default is -1, which means the design template is added to the end of the list of designs in the presentation.