Klasse Design (PowerPoint VBA)

Die Klasse Design stellt eine einzelne Folienentwurfsvorlage dar. Design -Objekt ist ein Mitglied die Designs und SlideRange -Auflistung und die Master-Shape und Slide -Objekte.

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

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

Die folgenden Prozeduren können zum Festlegen der Design Klassenvariablen verwendet werden : CustomLayout.Design, Designs.Add, Designs.Clone, Designs.Item, Designs.Load, Master.Design, Slide.Design und SlideRange.Design.

Delete

Löscht das angegebene Design -Objekt.

ActivePresentation.Designs(1).Delete

Index

Gibt einen Long, der die Indexnummer für einen Animationseffekt oder eine Entwurfsvorlage darstellt. Schreibgeschützt.

Dim lngIndex As Long
lngIndex = ActivePresentation.Designs(1).Index

MoveTo

Verschiebt das angegebene Objekt an eine bestimmte Position in der Auflistung. Alle anderen Elemente in der Auflistung werden entsprechend neu nummeriert.

MoveTo (toPos)

toPos: Die Indexposition, an die der Animationseffekt verschoben werden soll.

Dim lngtoPos As Long: lngtoPos = 15
ActivePresentation.Designs(1).MoveTo toPos:=lngtoPos

Name

Gibt den Namen des angegebenen Objekts zurück oder legt ihn fest. Lese-/Schreibzugriff.

Sie können den Namen des Objekts in Verbindung mit der Item -Methode verwenden, um einen Verweis auf das Objekt zurückzugeben, wenn die Item -Methode für die Auflistung, die das Objekt enthält, ein Variant -Argument verwendet. Wenn beispielsweise der Wert der Name -Eigenschaft für eine Form das Rechteck 2 ist, .Shapes("Rectangle 2") wird ein Verweis auf diese Form zurückgegeben.

ActivePresentation.Designs(1).Name =

Preserved

Gibt an, ob ein Designmaster vor Änderungen geschützt ist. Lese-/Schreibzugriff.

Der Wert der preserved-Eigenschaft kann einer der folgenden MsoTriState -Konstanten sein.

ActivePresentation.Designs(1).Preserved = msoTrue

SlideMaster

Gibt ein Master -Objekt, das den Folienmaster darstellt. Schreibgeschützt.

Dim mstSlideMaster As Master
Set mstSlideMaster = ActivePresentation.Designs(1).SlideMaster