Classe HPageBreak (Excel VBA)

A classe HPageBreak representa uma quebra de página horizontal.

For Each

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

Dim shts As Sheets: Set shts = 
Dim hpgbr As HPageBreak
For Each hpgbr In shts.HPageBreaks
	With hpgbr
		
	End With
Next hpgbr

Delete

Exclui o objeto.

Dim hpgbr As HPageBreak: Set hpgbr = 
hpgbr.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 = 
Dim hpgbr As HPageBreak: Set hpgbr = 
hpgbr.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 hpgbr As HPageBreak: Set hpgbr = 
Dim xpbExtent As XlPageBreakExtent
xpbExtent = hpgbr.Extent

Location

Retorna ou define a célula um objeto Range que define o local da quebra de página. As quebras de página horizontais são alinhadas com a borda superior da célula de local. Range de leitura/gravação.

Dim hpgbr As HPageBreak: Set hpgbr = 
hpgbr.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 hpgbr As HPageBreak: Set hpgbr = 
hpgbr.Type = xlPageBreakAutomatic

HPageBreaks.Add

Adiciona uma quebra de página horizontal.

Sintaxe : expression.Add (Before)

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

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

HPageBreaks.Count

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

Dim hpbs As HPageBreaks: Set hpbs = 
Dim lngCount As Long
lngCount = hpbs.Count

HPageBreaks.Item

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

Sintaxe : expression.Item (Index)

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

Dim hpbs As HPageBreaks: Set hpbs = 
Dim hpgbrItem As HPageBreak
Set hpgbrItem = hpbs(Index:=1)

HPageBreaks.Parent

Retorna o objeto pai do objeto especificado. Somente leitura.