Classe VPageBreaks (Excel VBA)

Collection de sauts de page verticaux au sein de la zone d'impression. Pour utiliser une variable de classe VPageBreaks, elle doit d'abord être instanciée, par exemple

For Each

Voici un exemple de traitement des éléments VPageBreaks dans une collection

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

Add

Cette méthode ajoute un saut de page vertical.

Add (Before)

Before: Objet Range . Plage à gauche de laquelle le nouveau saut de page sera ajouté.

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

Count

Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

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

Item

Cette méthode renvoie un seul objet d'une collection.

Item (Index)

Index: Numéro d'index de l'objet.

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