Classe Window (Excel VBA)

A classe Window representa uma janela.

Os principais procedimentos da classe Window são Activate e Close

Set

Para usar uma variável de classe Window, ela primeiro precisa ser instanciada por exemplo

Dim wnd as Window
Set wnd = ActiveWindow

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Window: Application.ActiveWindow, NewWindow, Windows.Item, Workbook.NewWindow, Application.Windows, Selection e Workbook.Windows

For Each

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

Dim wnd As Window
For Each wnd In Windows
	
Next wnd

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

Print with its procedures PrintOut e PrintPreview
Column with its procedures ScrollColumn e SplitColumn
Row with its procedures ScrollRow e SplitRow

Métodos

Estes são os principais métodos da classe Window

Activate - Traz a janela para a frente na ordem z.

ActiveWindow.Activate

Close - Fecha o objeto.

Dim booClose As Boolean
booClose = ActiveWindow.Close

Estes são os principais métodos da classe

ActivateNext - Ativa a janela especificada e a envia para trás na ordem z das janelas.

ActivatePrevious - Ativa a janela específica e, em seguida, ativa a janela de trás na ordem z.

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

NewWindow - Cria uma nova janela ou uma cópia da janela especificada.

PointsToScreenPixelsX - Converte uma medida horizontal de pontos coordenadas de documentos em pixels de tela (coordenadas de tela). Retorna a medição convertida como um valor Long.

PointsToScreenPixelsY - Converte uma medida vertical de pontos coordenadas de documentos em pixels de tela (coordenadas de tela). Retorna a medição convertida como um valor Long.

RangeFromPoint - Retorna o objeto Shape ou Range que está posicionado no par de coordenadas de tela especificado. Se não houver uma forma localizada nas coordenadas especificadas, este método retornará Nothing.

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.

ScrollWorkbookTabs - Rola pelas guias da pasta de trabalho, localizadas na parte inferior da janela. Não afeta a planilha ativa da pasta de trabalho.

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

Windows.Arrange - Organiza as janelas na tela.

Windows.BreakSideBySide - Finaliza o modo lado a lado se duas janelas estiverem no modo lado a lado. Retorna um valor Boolean que mostra se o método teve êxito.

Windows.CompareSideBySideWith - Abre duas janelas no modo lado a lado. Retorna um valor Boolean.

Windows.ResetPositionsSideBySide - Redefine a posição de duas janelas da planilha que estejam sendo comparadas lado a lado.

Propriedades

ActiveCell Retorna um objeto Intervalo que representa a célula ativa na janela ativa a janela na parte superior ou na janela especificada. Se a janela não estiver exibindo uma planilha, essa propriedade falha. Somente leitura.

Dim rngActiveCell As Range
Set rngActiveCell = ActiveWindow.ActiveCell

ActiveChart Retorna um objeto Chart que representa o gráfico ativo seja um gráfico incorporado ou uma planilha de gráfico. Um gráfico inserido é considerado ativo quando está selecionado ou ativado. Quando nenhum gráfico está ativo, esta propriedade retorna Nothing.

Dim chrActiveChart As Chart
Set chrActiveChart = ActiveWindow.ActiveChart

ActivePane Retorna um objeto pane que representa o painel ativo na janela. Somente leitura.

Dim panActivePane As Pane
Set panActivePane = ActiveWindow.ActivePane

ActiveSheet Retorna um objeto que representa a planilha ativa a planilha na parte superior na pasta de trabalho ativa ou na janela ou pasta de trabalho especificada. Retorna Nothing se nenhuma planilha estiver ativa.

Dim wsActiveSheet As Worksheet
Set wsActiveSheet = ActiveWindow.ActiveSheet

ActiveSheetView Retorna um objeto que representa o modo de exibição da planilha ativa na janela especificada. Somente leitura.

Dim wsvwActiveSheetView As WorksheetView
Set wsvwActiveSheetView = ActiveWindow.ActiveSheetView

AutoFilterDateGrouping True se o autofiltro do agrupamento de dados estiver exibido no momento na janela especificada. Boolean de leitura/gravação.

ActiveWindow.AutoFilterDateGrouping = True

Caption Retorna ou define um valor que representa o nome que aparece na barra de título da janela do documento.

ActiveWindow.Caption =  "Consolidated Balance Sheet"

DisplayFormulas True se a janela estiver exibindo fórmulas; False se a janela estiver exibindo valores. Boolean de leitura/gravação.

ActiveWindow.DisplayFormulas = True

DisplayGridlines True se as linhas de grade estiverem exibidas. Boolean de leitura/gravação.

ActiveWindow.DisplayGridlines = True

DisplayHeadings True se ambos os cabeçalhos de linha e coluna são exibidos; False se nenhum título for exibido. Boolean de leitura/gravação.

ActiveWindow.DisplayHeadings = True

DisplayHorizontalScrollBar True se a barra de rolagem horizontal for exibida. Boolean de leitura/gravação.

ActiveWindow.DisplayHorizontalScrollBar = True

DisplayOutline True se os símbolos de tópico estiverem exibidos. Boolean de leitura/gravação.

ActiveWindow.DisplayOutline = True

DisplayRightToLeft True se a janela especificada for exibida da direita para a esquerda, e não da esquerda para a direita. False se o objeto for exibido da esquerda para a direita. Boolean somente leitura.

ActiveWindow.DisplayRightToLeft = True

DisplayRuler True se uma régua for exibida na janela especificada. Boolean de leitura/gravação.

ActiveWindow.DisplayRuler = True

DisplayVerticalScrollBar True se a barra de rolagem vertical for exibida. Boolean de leitura/gravação.

ActiveWindow.DisplayVerticalScrollBar = True

DisplayWhitespace True se o espaço em branco for exibido. Boolean de leitura/gravação.

ActiveWindow.DisplayWhitespace = True

DisplayWorkbookTabs True se as guias de pasta de trabalho forem exibidas. Boolean de leitura/gravação.

ActiveWindow.DisplayWorkbookTabs = True

DisplayZeros True se valores zero estiverem exibidos. Boolean de leitura/gravação.

ActiveWindow.DisplayZeros = True

EnableResize True se a janela puder ser redimensionada. Boolean de leitura/gravação.

ActiveWindow.EnableResize = True

FreezePanes True se os painéis divididos estiverem congelados. Boolean de leitura/gravação.

ActiveWindow.FreezePanes = True

GridlineColor Retorna ou define a cor das linhas de grade como um valor RGB. Long de leitura/gravação.

ActiveWindow.GridlineColor = RGB(0,0,255)'blue

GridlineColorIndex Retorna ou define a cor da linha de grade como um índice na paleta de cores atual ou como uma constante XlColorIndex .

ActiveWindow.GridlineColorIndex = xlColorIndexAutomatic

Height Retorna ou define um valor Double que representa a altura, em pontos, da janela.

ActiveWindow.Height =

Hwnd Retorna um Long que indica o identificador de janela da janela especificada. Somente leitura.

Dim lngHwnd As Long
lngHwnd = ActiveWindow.Hwnd

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.Index

Left Retorna ou define um valor Double que representa a distância, em pontos, da borda esquerda da área do cliente à borda esquerda da janela.

ActiveWindow.Left =

OnWindow Retorna ou define o nome do procedimento que é executado sempre que você ativa uma janela. String de leitura/gravação.

ActiveWindow.OnWindow =

Panes Retorna uma coleção panes que representa todos os painéis na janela especificada. Somente leitura.

Dim pnsPanes As Panes
Set pnsPanes = ActiveWindow.Panes

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveWindow.Parent

RangeSelection Retorna um objeto Range que representa as células selecionadas na planilha na janela especificada, mesmo se um objeto gráfico estiver ativo ou selecionado na planilha. Somente leitura.

Dim rngRangeSelection As Range
Set rngRangeSelection = ActiveWindow.RangeSelection

SelectedSheets Retorna uma coleção Sheets que representa todas as planilhas selecionadas na janela especificada. Somente leitura.

Dim shtsSelectedSheets As Sheets
Set shtsSelectedSheets = ActiveWindow.SelectedSheets

Selection Retorna a janela especificada, para um objeto Windows .

Dim wndsSelection As Windows
Set wndsSelection = ActiveWindow.Selection

SheetViews Retorna o objeto SheetViews da janela especificada. Somente leitura.

Dim svsSheetViews As SheetViews
Set svsSheetViews = ActiveWindow.SheetViews

Split True se a janela estiver dividida. Boolean de leitura/gravação.

ActiveWindow.Split = True

SplitHorizontal Retorna ou define o local da divisão de janela horizontal, em pontos. Double de leitura/gravação.

ActiveWindow.SplitHorizontal = 216

SplitVertical Retorna ou define o local da divisão vertical da janela, em pontos. Double de leitura/gravação.

ActiveWindow.SplitVertical = 216

TabRatio Retorna ou define a razão entre a largura da área de guias da pasta de trabalho e a largura da barra de rolagem horizontal da janela na forma de um número entre 0 (zero e 1; o valor padrão é 0,6). Double de leitura/gravação.

ActiveWindow.TabRatio =

Top Retorna ou define um valor Double que representa a distância, em pontos, da borda superior da janela até a borda superior da área utilizável abaixo dos menus, qualquer barra de ferramentas encaixada na parte superior e a barra de fórmulas.

ActiveWindow.Top = 100

Type Retorna ou define um valor XlWindowType que representa o tipo de janela.

Dim xwtType As XlWindowType
xwtType = ActiveWindow.Type

UsableHeight Retorna a altura máxima do espaço que uma janela pode ocupar na área da janela do aplicativo, em pontos. Double somente leitura.

Dim dblUsableHeight As Double
dblUsableHeight = ActiveWindow.UsableHeight

UsableWidth Retorna a largura máxima do espaço que uma janela pode ocupar na área da janela do aplicativo, em pontos. Double somente leitura.

Dim dblUsableWidth As Double
dblUsableWidth = ActiveWindow.UsableWidth

View Retorna ou define a exibição mostrada na janela. Leitura/gravação XlWindowView.

ActiveWindow.View = xlNormalView

Visible Retorna ou define um valor Boolean que determina se o objeto será visível. Leitura/gravação.

ActiveWindow.Visible = True

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.VisibleRange

Width Retorna ou define um valor Double que representa a largura, em pontos, da janela.

ActiveWindow.Width =

WindowNumber Retorna o número da janela. Por exemplo, uma janela chamada book1. xls: 2 tem 2 como seu número de janela. A maioria das janelas tem o número de janela 1. Long somente leitura.

Dim lngWindowNumber As Long
lngWindowNumber = ActiveWindow.WindowNumber

WindowState Retorna ou define o estado da janela. Leitura/gravação XlWindowState.

ActiveWindow.WindowState = xlMaximized

Zoom Retorna ou define um valor que representa o tamanho da exibição da janela, como um percentual 100 igual a tamanho normal, 200 igual a tamanho duplo e assim por diante.

ActiveWindow.Zoom =

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

Dim lngCount As Long
lngCount = ActiveWindow.Selection.Count

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

Dim wndItem As Window
Set wndItem = ActiveWindow.Selection(Index:=1)

Windows.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveWindow.Selection.Parent

Windows.SyncScrollingSideBySide True permite rolar ao mesmo tempo os conteúdos das janelas quando os documentos estão sendo comparados lado a lado. False desativa a rolagem simultânea das janelas.

ActiveWindow.Selection.SyncScrollingSideBySide = True