Clase VPageBreaks (Excel VBA)

Colección de saltos de página verticales dentro del área de impresión.

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos VPageBreaks en una colección.

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

Add

Agrega un salto de página vertical.

Add (Before)

Before: Un objeto Range . Rango a la izquierda del que se agregará el nuevo salto de página.

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

Count

Devuelve un valor Long que representa el número de objetos de la colección.

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

Item

Devuelve un solo objeto de una colección.

Item (Index)

Index: Número de índice del objeto.

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