Klasse HPageBreak (Excel VBA)

Die Klasse HPageBreak stellt einen horizontalen Seitenumbruch dar.

For Each

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

Dim shts As Sheets: Set shts = 
Dim hpgbr As HPageBreak
For Each hpgbr In shts.HPageBreaks
	With hpgbr
		
	End With
Next hpgbr

Delete

Löscht das Objekt.

Dim hpgbr As HPageBreak: Set hpgbr = 
hpgbr.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 = 
Dim hpgbr As HPageBreak: Set hpgbr = 
hpgbr.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 hpgbr As HPageBreak: Set hpgbr = 
Dim xpbExtent As XlPageBreakExtent
xpbExtent = hpgbr.Extent

Location

Dim hpgbr As HPageBreak: Set hpgbr = 
hpgbr.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 hpgbr As HPageBreak: Set hpgbr = 
hpgbr.Type = xlPageBreakAutomatic

HPageBreaks.Add

Fügt einen horizontalen Seitenumbruch ein.

Syntax : expression.Add (Before)

Before: Ein Range -Objekt.

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

HPageBreaks.Count

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

Dim hpbs As HPageBreaks: Set hpbs = 
Dim lngCount As Long
lngCount = hpbs.Count

HPageBreaks.Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Syntax : expression.Item (Index)

Index: Die Indexnummer des Objekts.

Dim hpbs As HPageBreaks: Set hpbs = 
Dim hpgbrItem As HPageBreak
Set hpgbrItem = hpbs(Index:=1)

HPageBreaks.Parent

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