Klasse CustomLayout (PowerPoint VBA)

Die Klasse CustomLayout stellt ein benutzerdefiniertes Layout mit einem Präsentationsdesign verknüpft ist. CustomLayout -Objekt ist Mitglied der CustomLayouts -Auflistung an.

Die wichtigste Prozeduren der Klasse CustomLayout sind Copy, Delete, Select und CustomLayouts.Add

Set

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

Dim clt as CustomLayout
Set clt = ActivePresentation.SlideMaster.CustomLayouts(Index:=1)

Die folgenden Prozeduren können zum Festlegen der CustomLayout Klassenvariablen verwendet werden : Duplicate, CustomLayouts.Item, CustomLayouts.Add, CustomLayouts.Paste, Slide.CustomLayout, SlideRange.CustomLayout und Master.CustomLayouts

Themas

Einige Prozeduren in dieser Klasse wurden in Themen zusammengefasst und auf separaten Themenseiten beschrieben

Display/Show with its procedures DisplayMasterShapes und SlideShowTransition
Format with its procedures Height, ThemeColorScheme und Width
Name with its procedures MatchingName und Name

Methoden

Die Hauptmethoden der Klasse CustomLayout sind

Copy - Kopiert das angegebene Objekt in die Zwischenablage.

ActivePresentation.SlideMaster.CustomLayouts(1).Copy

Delete - Löscht das angegebene Objekt.

ActivePresentation.SlideMaster.CustomLayouts(1).Delete

Select - Markiert das angegebene CustomLayout -Objekt.

ActivePresentation.SlideMaster.CustomLayouts(1).Select

CustomLayouts.Add - Gibt ein CustomLayout -Objekt, das ein neues benutzerdefiniertes Layout darstellt.

Dim lngIndex As Long: lngIndex = 
Dim clt As CustomLayout
Set clt = ActivePresentation.SlideMaster.CustomLayouts.Add(Index:=lngIndex)

Eigenschaften

Background Gibt ein ShapeRange -Objekt, das den Folienhintergrund darstellt. Schreibgeschützt.

Dim sreBackground As ShapeRange
Set sreBackground = ActivePresentation.SlideMaster.CustomLayouts(1).Background

CustomerData Gibt ein CustomerData -Objekt zurück.

Dim cdaCustomerData As CustomerData
Set cdaCustomerData = ActivePresentation.SlideMaster.CustomLayouts(1).CustomerData

Design Gibt ein Design -Objekt zurück, das die Entwurfsvorlage darstellt, die dem angegebenen benutzerdefinierten Layout zugeordnet ist.

Dim dsgDesign As Design
Set dsgDesign = ActivePresentation.SlideMaster.CustomLayouts(1).Design

FollowMasterBackground Bestimmt, ob das angegebene benutzerdefinierte Layout dem Hintergrund des Folienmasters folgt. Lese-/Schreibzugriff.

ActivePresentation.SlideMaster.CustomLayouts(1).FollowMasterBackground = msoTrue

Guides Gibt die Guides -Auflistung zurück, die einem benutzerdefinierten Layout zugeordnet ist. Schreibgeschützt.

Dim gdsGuides As Guides
Set gdsGuides = ActivePresentation.SlideMaster.CustomLayouts(1).Guides

HeadersFooters Gibt eine HeadersFooters -Auflistung zurück, die die Kopfzeile, die Fußzeile, das Datum und die Uhrzeit sowie die dem angegebenen benutzerdefinierten Layout zugeordnete Foliennummer darstellt.

Dim hfsHeadersFooters As HeadersFooters
Set hfsHeadersFooters = ActivePresentation.SlideMaster.CustomLayouts(1).HeadersFooters

Hyperlinks Gibt eine Hyperlinks -Auflistung zurück, die alle Hyperlinks auf der Folie darstellt, die dem benutzerdefinierten Layout zugeordnet ist. Schreibgeschützt.

Dim hypsHyperlinks As Hyperlinks
Set hypsHyperlinks = ActivePresentation.SlideMaster.CustomLayouts(1).Hyperlinks

Index Gibt die Indexposition des angegebenen benutzerdefinierten Layouts in der CustomLayouts -Auflistung zurück. Schreibgeschützt.

Dim lngIndex As Long
lngIndex = ActivePresentation.SlideMaster.CustomLayouts(1).Index

Parent Gibt einen Verweis auf das Folienmaster Objekt zurück, das dem angegebenen CustomLayout -Objekt übergeordnet ist. Schreibgeschützt.

Dim objParent As Object
Set objParent = ActivePresentation.SlideMaster.CustomLayouts(1).Parent

Preserved Bestimmt, ob das angegebene benutzerdefinierte Layout vor Änderungen geschützt ist. Lese-/Schreibzugriff.

ActivePresentation.SlideMaster.CustomLayouts(1).Preserved = msoTrue

Shapes Gibt eine Shapes -Auflistung zurück, die alle Layoutelemente darstellt, die im angegebenen benutzerdefinierten Layout enthalten sind. Schreibgeschützt.

Dim shpsShapes As Shapes
Set shpsShapes = ActivePresentation.SlideMaster.CustomLayouts(1).Shapes

TimeLine Gibt ein TimeLine -Objekt zurück, das die Animationszeitachse der Folie darstellt, die dem angegebenen benutzerdefinierten Layout zugeordnet ist. Schreibgeschützt.

Dim tleTimeLine As TimeLine
Set tleTimeLine = ActivePresentation.SlideMaster.CustomLayouts(1).TimeLine

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

Dim lngCount As Long
lngCount = ActivePresentation.SlideMaster.CustomLayouts.Count

CustomLayouts.Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück. Schreibgeschützt.

Dim objParent As Object
Set objParent = ActivePresentation.SlideMaster.CustomLayouts.Parent