Klasse HPageBreak - einen horizontalen Seitenumbruch (Excel VBA)
Die Klasse HPageBreak stellt einen horizontalen Seitenumbruch dar. Um eine HPageBreak -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise
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.
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ögliche Rückgabewerte 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 =
Type
Gibt einen XlPageBreak -Wert zurück, der den Seiten umbruchtyp darstellt, oder legt diesen fest. Mögliche Rückgabewerte 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