Classe HPageBreaks (Excel VBA)

Collection des sauts de page horizontaux situés dans la zone d'impression. Pour utiliser une variable de classe HPageBreaks, elle doit d'abord être instanciée, par exemple

For Each

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

Dim shts As Sheets: Set shts = 
Dim hpgbr As HPageBreak
For Each hpgbr In shts.HPageBreaks
	With hpgbr
		
	End With
Next hpgbr

Add

Cette méthode ajoute un saut de page horizontal.

Add (Before)

Before: Objet Range . Plage au-dessus 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 hpbs As HPageBreaks: Set hpbs = 
Dim lngCount As Long
lngCount = hpbs.Count

Item

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

Item (Index)

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

Dim hpbs As HPageBreaks: Set hpbs = 
Dim hpgbrItem As HPageBreak
Set hpgbrItem = hpbs(Index:=1)