Classe Windows (Excel VBA)

Uma coleção de todos os objetos Window no Microsoft Excel. Para usar uma variável de classe Windows, ela primeiro precisa ser instanciada por exemplo

Dim wnds as Windows
Set wnds = ActiveWindow.Selection

For Each

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

Dim wnd As Window
For Each wnd In Windows
	
Next wnd

Arrange

Organiza as janelas na tela.

Arrange (ArrangeStyle, ActiveWorkbook, SyncHorizontal, SyncVertical)

Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled

Arguments

Optional arguments

Os seguintes argumentos são opcionais

ArrangeStyle (XlArrangeStyle) - Uma das constantes de XlArrangeStyle especificando como as janelas são organizadas.

Os valores possíveis são

ActiveWorkbook (Boolean) - True para organizar apenas as janelas visíveis da pasta de trabalho ativa. False para organizar todas as janelas. O valor padrão é False.

SyncHorizontal (Boolean) - Ignorada se ActiveWorkbook for False ou omitida. True para sincronizar as janelas da pasta de trabalho ativo quando rolando horizontalmente. False para não sincronizar as janelas. O valor padrão é False.

SyncVertical (Boolean) - Ignorada se ActiveWorkbook for False ou omitida. True para sincronizar as janelas da pasta de trabalho ativa ao rolar verticalmente. False para não sincronizar as janelas. O valor padrão é False.

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.

Dim booBreakSideBySide As Boolean
booBreakSideBySide = ActiveWindow.Selection.BreakSideBySide

CompareSideBySideWith

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

Você não pode usar o método CompareSideBySideWith com o objeto Application ou a propriedade ActiveWorkbook.

CompareSideBySideWith (WindowName)

WindowName: O nome da janela.

Dim booCompareSideBySideWith As Boolean
booCompareSideBySideWith = ActiveWindow.Selection.CompareSideBySideWith(WindowName:=)

Count

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

Dim lngCount As Long
lngCount = ActiveWindow.Selection.Count

Item

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

Item (Index)

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

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

ResetPositionsSideBySide

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

Use o método ResetPositionsSideBySide para redefinir a posição de duas planilhas que estão sendo comparadas lado a lado. Por exemplo, se um usuário minimiza ou maximiza uma das duas janelas que estão sendo comparadas, o método ResetPositionsSideBySide redefine a exibição de modo que as duas janelas sejam novamente exibidas lado a lado.

ActiveWindow.Selection.ResetPositionsSideBySide

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