Clase HPageBreak (Excel VBA)

La clase HPageBreak representa un salto de página horizontal.

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos HPageBreak en una colección.

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

Delete

Elimina el objeto.

Dim hpgbr As HPageBreak: Set hpgbr = 
hpgbr.Delete

DragOff

Arrastra un salto de página y lo deja fuera del área de impresión.

Este método se utiliza, principalmente, para la grabadora de macros.

Sintaxis : expression.DragOff (Direction, RegionIndex)

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

Arguments

Estos son los argumentos con nombre :

Direction (XlDirection) - Dirección en la que se arrastra el salto de página.

Valores posibles son

xlDown Dispuesto.
xlToLeft Hacia la izquierda.
xlToRight Hacia la derecha.
xlUp Instalado.

RegionIndex (Long) - Índice de la región del área de impresión para el salto de página; es decir, la región en la que está el puntero del mouse (ratón) cuando se hace clic si el usuario arrastra el salto de página.

Extent

Devuelve el tipo del salto de página especificado: pantalla completa o solamente dentro de un área de impresión.

Valores posibles son xlPageBreakFull - A toda la pantalla, xlPageBreakPartial - Sólo al área de impresión.
Dim hpgbr As HPageBreak: Set hpgbr = 
Dim xpbExtent As XlPageBreakExtent
xpbExtent = hpgbr.Extent

Location

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

Parent

Devuelve el objeto primario del objeto especificado.

Type

Devuelve o establece un valor XlPageBreak que representa el tipo de salto de página.

Valores posibles son xlPageBreakAutomatic - Excel agrega automáticamente los saltos de página, xlPageBreakManual - Los saltos de página se insertan manualmente, xlPageBreakNone - Los saltos de página no se insertan en la hoja de cálculo.
Dim hpgbr As HPageBreak: Set hpgbr = 
hpgbr.Type = xlPageBreakAutomatic

HPageBreaks.Add

Agrega un salto de página horizontal.

Sintaxis : expression.Add (Before)

Before: Un objeto Range .

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

HPageBreaks.Count

Devuelve un valor Long que representa el número de objetos de la colección.

Dim hpbs As HPageBreaks: Set hpbs = 
Dim lngCount As Long
lngCount = hpbs.Count

HPageBreaks.Item

Devuelve un solo objeto de una colección.

Sintaxis : expression.Item (Index)

Index: Número de índice del objeto.

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

HPageBreaks.Parent

Devuelve el objeto primario del objeto especificado.