Class VPageBreak (Excel VBA)

The class VPageBreak represents a vertical page break.

For Each

Here is an example of processing the VPageBreak items in a collection.

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


Deletes the object.

Dim vpgbr As VPageBreak: Set vpgbr = 


Drags a page break out of the print area.

This method exists primarily for the macro recorder. You can use the Delete method to delete a page break in Visual Basic.

DragOff (Direction, RegionIndex)

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


The following arguments are required:

Direction (XlDirection) - The direction in which the page break is dragged.

Possible Values are

xlDown Down.
xlToLeft To left.
xlToRight To right.
xlUp Up.

RegionIndex (Long) - The print-area region index for the page break (the region where the mouse pointer is located when the mouse button is pressed if the user drags the page break). If the print area is contiguous, there's only one print region. If the print area is discontiguous, there's more than one print region.


Returns the type of the specified page break: full-screen or only within a print area. Can be either of the following XlPageBreakExtent constants: xlPageBreakFull or xlPageBreakPartial.

xlPageBreakFull - Full screen, xlPageBreakPartial - Only within print area.
Dim vpgbr As VPageBreak: Set vpgbr = 
Dim xpbExtent As XlPageBreakExtent
xpbExtent = vpgbr.Extent


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


Returns or sets an XlPageBreak value that represents the page break type.

xlPageBreakAutomatic - Excel will automatically add page breaks, xlPageBreakManual - Page breaks are manually inserted, xlPageBreakNone - Page breaks are not inserted on the worksheet.
Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.Type = xlPageBreakAutomatic


Adds a vertical page break.

Add (Before)

Before: A Range object. The range to the left of which the new page break will be added.

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


Returns a Long value that represents the number of objects in the collection.

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


Returns a single VPageBreak object from the collection.

Item (Index)

Index: The index number of the object.

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