Klasse VPageBreak (Excel VBA)

Die Klasse VPageBreak stellt einen vertikalen Seitenumbruch dar.

For Each

Hier ist ein Beispiel für die Verarbeitung der VPageBreak -Elemente in einer Sammlung

Dim shts As Sheets: Set shts = 
Dim vpgbr As VPageBreak
For Each vpgbr In shts.VPageBreaks
	With vpgbr
		
	End With
Next vpgbr

Delete

Löscht das Objekt.

Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.Delete

DragOff

Zieht einen Seitenumbruch aus dem Druckbereich heraus.

Diese Methode ist vorrangig für die Makroaufzeichnung bestimmt.

Syntax : expression.DragOff (Direction, RegionIndex)

Dim lngRegionIndex As Long: lngRegionIndex = 1
Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.DragOff Direction:=xlDown, RegionIndex:=lngRegionIndex

Arguments

Hier sind die benannte Argumente :

Direction (XlDirection) - Die Richtung, in die der Seitenumbruch gezogen wird.

Möglichen Werte sind

xlDown Dropdown.
xlToLeft Nach links
xlToRight Nach rechts
xlUp Bis.

RegionIndex (Long) - Der Index der Druckbereichsregion für den Seitenumbruch (die Region, in der sich der Mauszeiger beim Drücken der Maustaste befindet, wenn der Benutzer den Seitenumbruch zieht).

Extent

Gibt den Typ des angegebenen Seitenumbruchs zurück: auf dem ganzen Bildschirm oder nur innerhalb eines Druckbereichs.

Möglichen Werte sind xlPageBreakFull - Gesamter Bildschirm, xlPageBreakPartial - Nur innerhalb des Druckbereichs.
Dim vpgbr As VPageBreak: Set vpgbr = 
Dim xpbExtent As XlPageBreakExtent
xpbExtent = vpgbr.Extent

Location

Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.Location =

Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Type

Gibt einen XlPageBreak -Wert zurück, der den Seiten umbruchtyp darstellt, oder legt diesen fest.

Möglichen Werte sind xlPageBreakAutomatic - Seitenumbrüche werden von Excel automatisch hinzugefügt, xlPageBreakManual - Seitenumbrüche werden manuell eingefügt, xlPageBreakNone.
Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.Type = xlPageBreakAutomatic

VPageBreaks.Add

Fügt einen vertikalen Seitenumbruch hinzu.

Syntax : expression.Add (Before)

Before: Ein Range -Objekt.

With Worksheets(1) 
 .HPageBreaks.Add .Range("F25") 
 .VPageBreaks.Add .Range("F25") 
End With

VPageBreaks.Count

Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim vpbs As VPageBreaks: Set vpbs = 
Dim lngCount As Long
lngCount = vpbs.Count

VPageBreaks.Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Syntax : expression.Item (Index)

Index: Die Indexnummer des Objekts.

Dim vpbs As VPageBreaks: Set vpbs = 
Dim vpgbrItem As VPageBreak
Set vpgbrItem = vpbs(Index:=1)

VPageBreaks.Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.