Clase VPageBreak (Excel VBA)

La clase VPageBreak representa un salto de página vertical.

For Each

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

Dim shts As Sheets: Set shts = 
Dim vpgbr As VPageBreak
For Each vpgbr In shts.VPageBreaks
	With vpgbr
		
	End With
Next vpgbr

Delete

Elimina el objeto.

Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.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. Puede usar el método Delete para eliminar un salto de página en Visual Basic.

Sintaxis : expression.DragOff (Direction, RegionIndex)

Dim lngRegionIndex As Long: lngRegionIndex = 1
Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.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. Si el área de impresión es contiguo, solo hay una región de impresión. Si el área de impresión es contiguo, hay más de una región de impresión.

Extent

Devuelve el tipo del salto de página especificado: pantalla completa o solamente dentro de un área de impresión. Puede ser cualquiera de las siguientes constantes XlPageBreakExtent : xlPageBreakFull o xlPageBreakPartial. Long de sólo lectura.

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

Location

Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.Location =

Parent

Devuelve el objeto primario del objeto especificado. Solo lectura.

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

VPageBreaks.Add

Agrega un salto de página vertical.

Sintaxis : expression.Add (Before)

Before: Un objeto Range . Rango a la izquierda del que se agregará el nuevo salto de página.

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

VPageBreaks.Count

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

Dim vpbs As VPageBreaks: Set vpbs = 
Dim lngCount As Long
lngCount = vpbs.Count

VPageBreaks.Item

Devuelve un solo objeto de una colección.

Sintaxis : expression.Item (Index)

Index: Número de índice del objeto.

Dim vpbs As VPageBreaks: Set vpbs = 
Dim vpgbrItem As VPageBreak
Set vpgbrItem = vpbs(Index:=1)

VPageBreaks.Parent

Devuelve el objeto primario del objeto especificado. Solo lectura.