Clase HPageBreak - un salto de página horizontal (Excel VBA)

La clase HPageBreak representa un salto de página horizontal. Para usar una variable de clase HPageBreak, primero debe ser instanciado, por ejemplo

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.

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. Posibles valores de retorno 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 =

Type

Devuelve o establece un valor XlPageBreak que representa el tipo de salto de página. Posibles valores de retorno 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