Classe VPageBreak - uma quebra de página vertical (Excel VBA)

A classe VPageBreak representa uma quebra de página vertical. Para usar uma variável de classe VPageBreak, ela primeiro precisa ser instanciada por exemplo

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.

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

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 de retorno 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 =

Type

Retorna ou define um valor XlPageBreak que representa o tipo de quebra de página. Os valores de retorno 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