Class VPageBreaks (Excel VBA)

A collection of vertical page breaks within the print area. To use a VPageBreaks class variable it first needs to be instantiated, for example

For Each

Here is an example of processing the VPageBreaks 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

Add

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

Count

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

Item

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)