HPageBreaks プロパティ (Excel)Worksheet.HPageBreaks property (Excel)

シートの水平方向の改ページを表す**HPageBreaks** コレクションを取得します。Returns an HPageBreaks collection that represents the horizontal page breaks on the sheet. 読み取り専用です。Read-only.

構文Syntax

HPageBreaksexpression.HPageBreaks

Worksheet オブジェクトを表す変数を取得します。expression A variable that represents a Worksheet object.

注釈Remarks

1 つのシートに使用できる水平な改ページの数は 1026 です。There is a limit of 1,026 horizontal page breaks per sheet.

Example

次の使用例は、全画面表示および印刷領域での水平な改ページ数を表示します。The following code example displays the number of full-screen and print-area horizontal page breaks.

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"

次の使用例では、列 A のセルの値が変更されたときに改ページを追加します。The following code example adds a page break when the value of a cell in column A changes.

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 and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.