Classe VPageBreak (Excel VBA)

A classe VPageBreak representa uma quebra de página vertical.

For Each

Aqui está um exemplo de processamento dos itens VPageBreak em uma coleção.

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

Delete

Exclui o objeto.

Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.Delete

DragOff

Arrasta uma quebra de página para fora da área de impressão.

Este método existe basicamente para o gravador de macros. Você pode usar o método delete para excluir uma quebra de página no Visual Basic.

Sintaxe : expression.DragOff (Direction, RegionIndex)

Dim lngRegionIndex As Long: lngRegionIndex = 1
Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.DragOff Direction:=xlDown, RegionIndex:=lngRegionIndex

Arguments

O seguinte argumento é opcional

Direction (XlDirection) - A direção na qual a quebra de página é arrastada.

Os valores possíveis são

xlDown Bloquea.
xlToLeft Para esquerda.
xlToRight Para direita.
xlUp Inicializa.

RegionIndex (Long) - O índice de região da área de impressão para a quebra de página (a região onde se situa o ponteiro do mouse quando o botão do mouse é pressionado caso o usuário arraste a quebra de página). Se a área de impressão for contígua, haverá apenas uma região de impressão. Se a área de impressão for incontígua, haverá mais de uma região de impressão.

Extent

Retorna o tipo da quebra de página especificada: de tela inteira ou somente dentro de uma área de impressão. Pode ser uma das seguintes constantes XlPageBreakExtent : xlPageBreakFull ou xlPageBreakPartial. Long somente leitura.

Os valores possíveis são xlPageBreakFull - Tela cheia, xlPageBreakPartial - Somente na área de impressão.
Dim vpgbr As VPageBreak: Set vpgbr = 
Dim xpbExtent As XlPageBreakExtent
xpbExtent = vpgbr.Extent

Location

Retorna a célula um objeto Range que define o local da quebra de página. As quebras de página verticais são alinhadas com a borda esquerda da célula de local. Range de somente leitura.

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

Parent

Retorna o objeto pai do objeto especificado. Somente leitura.

Type

Retorna ou define um valor XlPageBreak que representa o tipo de quebra de página.

Os valores possíveis são xlPageBreakAutomatic - O Excel adicionará quebras de página automaticamente, xlPageBreakManual - As quebras de página são inseridas manualmente, xlPageBreakNone - Quebras de página não são inseridas na planilha.
Dim vpgbr As VPageBreak: Set vpgbr = 
vpgbr.Type = xlPageBreakAutomatic

VPageBreaks.Add

Adiciona uma quebra de página vertical.

Sintaxe : expression.Add (Before)

Before: Um objeto Range . O intervalo à esquerda do qual a nova quebra de página será adicionada.

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

VPageBreaks.Count

Retorna um valor Long que representa o número de objetos na coleção.

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

VPageBreaks.Item

Retorna um único objeto de uma coleção.

Sintaxe : expression.Item (Index)

Index: O número de índice do objeto.

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

VPageBreaks.Parent

Retorna o objeto pai do objeto especificado. Somente leitura.