Classe VPageBreak (Excel VBA)

Cet objet représente un saut de page vertical.

For Each

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

Delete

Cette méthode supprime l'objet.

Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.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 = 1
Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.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 vpgbr As VPageBreak: Set vpgbr = 
Dim xpbExtent As XlPageBreakExtent
xpbExtent = vpgbr.Extent

Location

Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.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 vpgbr As VPageBreak: Set vpgbr = 
vpgbr.Type = xlPageBreakAutomatic

VPageBreaks.Add

Cette méthode ajoute un saut de page vertical.

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

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

VPageBreaks.Item

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

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

VPageBreaks.Parent

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