Classe VPageBreaks (Excel VBA)

Uma coleção de quebras de página verticais dentro da área de impressão. Para usar uma variável de classe VPageBreaks, ela primeiro precisa ser instanciada por exemplo

For Each

Aqui está um exemplo de processamento dos itens VPageBreaks em uma coleção.

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

Add

Adiciona uma quebra de página vertical.

Add (Before)

Before: Um objeto Range . O intervalo à esquerda do qual a nova quebra de página será adicionada.

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

Count

Retorna um valor Long que representa o número de objetos na coleção.

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

Item

Retorna um único objeto de uma coleção.

Item (Index)

Index: O número de índice do objeto.

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