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