Classe HPageBreak (Excel VBA)

Cet objet représente un saut de page horizontal.

For Each

Voici un exemple de traitement des éléments HPageBreak 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

Delete

Cette méthode supprime l'objet.

Dim hpgbr As HPageBreak: Set hpgbr = 
hpgbr.Delete

DragOff

Cette méthode fait glisser un saut de page hors de la zone d'impression.

Cette méthode concerne principalement l'enregistrement d'une macro. Vous pouvez utiliser la méthode Delete pour supprimer un saut de page dans Visual Basic.

Syntaxe : expression.DragOff (Direction, RegionIndex)

Dim lngRegionIndex As Long: lngRegionIndex = 
Dim hpgbr As HPageBreak: Set hpgbr = 
hpgbr.DragOff Direction:=xlDown, RegionIndex:=lngRegionIndex

Arguments

Les arguments nommés :

Direction (XlDirection) - Direction dans laquelle le saut de page est déplacé.

Valeurs possibles sont

xlDown Établies.
xlToLeft Vers la gauche.
xlToRight Vers la droite.
xlUp Élaborer.

RegionIndex (Long) - Index de la zone d'impression pour le saut de page (zone où le pointeur de la souris se trouve lorsque le bouton de la souris est enfoncé si l'utilisateur fait glisser le saut de page). Si la zone d'impression est contiguë, il n'y a qu'une seule zone d'impression. Si la zone d'impression est discontinue, il y a plus d'une zone d'impression.

Extent

Cette propriété renvoie le type du saut de page spécifié : plein écran ou exclusivement situé dans une zone d’impression. Peut être l'une des constantes XlPageBreakExtent suivantes: xlPageBreakFull ou xlPageBreakPartial. Type de données Long en lecture seule.

Valeurs possibles sont xlPageBreakFull - Plein écran, xlPageBreakPartial - Uniquement la zone d'impression.
Dim hpgbr As HPageBreak: Set hpgbr = 
Dim xpbExtent As XlPageBreakExtent
xpbExtent = hpgbr.Extent

Location

Dim hpgbr As HPageBreak: Set hpgbr = 
hpgbr.Location =

Parent

Renvoie l’objet parent pour l’objet spécifié. En lecture seule.

Type

Cette propriété renvoie ou définit une valeur XlPageBreak qui représente le type de saut de page.

Valeurs possibles sont xlPageBreakAutomatic - Excel ajoutera automatiquement des sauts de page, xlPageBreakManual - Les sauts de page sont insérés manuellement, xlPageBreakNone - Les sauts de page ne sont pas insérés dans la feuille de calcul.
Dim hpgbr As HPageBreak: Set hpgbr = 
hpgbr.Type = xlPageBreakAutomatic

HPageBreaks.Add

Cette méthode ajoute un saut de page horizontal.

Syntaxe : expression.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

HPageBreaks.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

HPageBreaks.Item

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

Syntaxe : expression.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)

HPageBreaks.Parent

Renvoie l’objet parent pour l’objet spécifié. En lecture seule.