Worksheet.HPageBreaks-Eigenschaft (Excel)

Gibt eine HPageBreaks-Auflistung zurück, die die horizontalen Seitenumbrüche auf dem Blatt darstellt. Schreibgeschützt.

Syntax

Ausdruck. HPageBreaks

Ausdruck: Eine Variable, die ein Worksheet-Objekt darstellt.

Hinweise

Die horizontalen Seitenumbrüche sind pro Arbeitsblatt auf 1,026 begrenzt.

Beispiel

In diesem Codebeispiel wird die Anzahl der horizontalen Seitenumbrüche des ganzen Bildschirms und des Druckbereichs angezeigt.

For Each pb in Worksheets(1).HPageBreaks 
    If pb.Extent = xlPageBreakFull Then 
        cFull = cFull + 1 
    Else 
        cPartial = cPartial + 1 
    End If 
Next 
MsgBox cFull & " full-screen page breaks, " & cPartial & _ 
    " print-area page breaks"

Im folgenden Codebeispiel wird ein Seitenumbruch hinzugefügt, wenn sich der Wert einer Zelle in Spalte A ändert.

Sub AddPageBreaks() 
    StartRow = 2 
    FinalRow = Range("A65536").End(xlUp).Row 
    LastVal = Cells(StartRow, 1).Value 
    For i = StartRow To FinalRow 
    ThisVal = Cells(i, 1).Value 
    If Not ThisVal = LastVal Then 
    ActiveSheet.HPageBreaks.Add before:=Cells(i, 1) 
    End If 
    LastVal = ThisVal 
    Next i 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.