Classe Pane - um painel de uma janela (Excel VBA)

A classe Pane representa um painel de uma janela. Para usar uma variável de classe Pane, ela primeiro precisa ser instanciada por exemplo


Dim pan as Pane
Set pan = ActiveWindow.ActivePane

For Each

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


Dim pan As Pane
For Each pan In Application.Panes
	
Next pan

Activate

Ativa o painel.

Se o painel não estiver na janela ativa, a janela à qual ele pertence também será ativada. Não é possível ativar um painel congelado.


Dim booActivate As Boolean
booActivate = ActiveWindow.ActivePane.Activate()

Index

Retorna um valor Long que representa o número de índice do objeto dentro da coleção de objetos semelhantes.


Dim lngIndex As Long
lngIndex = ActiveWindow.ActivePane.Index

LargeScroll

Rola o conteúdo da janela por páginas.

Se down e up forem especificados, os conteúdos da janela serão rolados pela diferença dos argumentos. Por exemplo, se Down for 3 e Up for 6, o conteúdo será rolado três páginas para cima. Se toleft e toright forem ambos especificados, o conteúdo da janela será rolado pela diferença dos argumentos. Por exemplo, se ToLeft for 3 e ToRight for 6, o conteúdo será rolado três páginas para a direita. Qualquer dos argumentos pode ser um número negativo.

LargeScroll (Down, Up, ToRight, ToLeft)


ActiveWindow.ActivePane.LargeScroll

Arguments

Optional arguments

Os seguintes argumentos são opcionais

Down (Long) - O número de páginas pelas quais rolar o conteúdo para baixo.

Up (Long) - O número de páginas pelas quais rolar o conteúdo para cima.

ToRight (Long) - O número de páginas pelas quais rolar o conteúdo para a direita.

ToLeft (Long) - O número de páginas pelas quais rolar o conteúdo para a esquerda.

PointsToScreenPixelsX

Retorna ou define um ponto de pixel na tela.

PointsToScreenPixelsX (Points)

Points: Local do pixel na tela.


Dim lngPoints As Long: lngPoints = 
Dim lngPointsToScreenPixelsX As Long
lngPointsToScreenPixelsX = ActiveWindow.ActivePane.PointsToScreenPixelsX(Points:=lngPoints)

PointsToScreenPixelsY

Retorna ou define o local do pixel na tela.

PointsToScreenPixelsY (Points)

Points: Local do ponto de início.


Dim lngPoints As Long: lngPoints = 
Dim lngPointsToScreenPixelsY As Long
lngPointsToScreenPixelsY = ActiveWindow.ActivePane.PointsToScreenPixelsY(Points:=lngPoints)

ScrollColumn

Retorna ou define o número da coluna mais à esquerda no painel ou na janela. Long de leitura/gravação.

Se a janela for dividida, a propriedade ScrollColumn do objeto Window se refere ao painel superior esquerdo. Quando os painéis estão congelados, a propriedade ScrollColumn do objeto Window exclui as áreas congeladas.


ActiveWindow.ActivePane.ScrollColumn =

ScrollIntoView

Rola a janela do documento de modo que o conteúdo de uma área retangular especificada seja exibido no canto superior esquerdo ou inferior direito da janela ou painel do documento dependendo do valor do argumento Start.

O argumento Start é útil para orientar a exibição da tela quando o retângulo é maior do que a janela ou painel do documento.

ScrollIntoView (Left, Top, Width, Height, Start)


ActiveWindow.ScrollIntoView _ 
 Left:=50, Top:=20, _ 
 Width:=100, Height:=200

Arguments

O seguinte argumento é opcional

Left (Long) - A posição horizontal do retângulo (em pontos) da borda esquerda da janela ou painel do documento.

Top (Long) - A posição vertical do retângulo (em pontos) a partir da parte superior da janela ou painel do documento.

Width (Long) - A largura do retângulo, em pontos.

Height (Long) - A altura do retângulo, em pontos.

Optional arguments

The following argument is optional

Start (Boolean) - True para que o canto superior esquerdo do retângulo seja exibido no canto superior esquerdo da janela ou painel do documento. False para que o canto inferior direito do retângulo seja exibido no canto inferior direito da janela ou painel do documento. O valor padrão é True.

ScrollRow

Retorna ou define o número da linha que aparece na parte superior do painel ou da janela. Long de leitura/gravação.

Se a janela for dividida, a propriedade ScrollRow do objeto Window se refere ao painel superior esquerdo. Quando os painéis estão congelados, a propriedade ScrollRow do objeto Window exclui as áreas congeladas.


Worksheets("Sheet1").Activate 
ActiveWindow.ScrollRow = 10

SmallScroll

Rola o conteúdo da janela por linhas ou colunas.

Se down e up forem especificados, os conteúdos da janela serão rolados pela diferença dos argumentos. Por exemplo, se Down for 3 e Up for 6, o conteúdo será rolado três linhas para cima. Se toleft e toright forem ambos especificados, o conteúdo da janela será rolado pela diferença dos argumentos. Por exemplo, se ToLeft for 3 e ToRight for 6, o conteúdo será rolado três colunas para a direita. Qualquer desses argumentos pode ser um número negativo.

SmallScroll (Down, Up, ToRight, ToLeft)


ActiveWindow.ActivePane.SmallScroll

Arguments

Optional arguments

Os seguintes argumentos são opcionais

Down (Long) - O número de linhas pelas quais rolar o conteúdo para baixo.

Up (Long) - O número de linhas pelas quais rolar o conteúdo para cima.

ToRight (Long) - O número de colunas pelas quais rolar o conteúdo para a direita.

ToLeft (Long) - O número de colunas pelas quais rolar o conteúdo para a esquerda.

VisibleRange

Retorna um objeto Range que representa o intervalo de células que estão visíveis na janela ou painel. Se uma coluna ou linha estiver parcialmente visível, ela será incluída no intervalo. Somente leitura.


Dim rngVisibleRange As Range
Set rngVisibleRange = ActiveWindow.ActivePane.VisibleRange