Clase Windows (Excel VBA)

Colección de todos los objetos Window de Microsoft Excel. Para usar una variable de clase Windows, primero debe ser instanciado, por ejemplo

Dim wnds as Windows
Set wnds = ActiveWindow.Selection

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Windows en una colección.

Dim wnd As Window
For Each wnd In Windows
	
Next wnd

Arrange

Organiza las ventanas en la pantalla.

Arrange (ArrangeStyle, ActiveWorkbook, SyncHorizontal, SyncVertical)

Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled

Arguments

Optional arguments

Los siguientes argumentos son opcionales

ArrangeStyle (XlArrangeStyle) - Una de las constantes de XlArrangeStyle que especifica la forma en que se organizan las ventanas.

Valores posibles son

ActiveWorkbook (Boolean) - True para organizar sólo las ventanas visibles del libro activo. False para organizar todas las ventanas. El valor predeterminado es False.

SyncHorizontal (Boolean) - Se omite si ActiveWorkbook es False o si se omite ese argumento. True para sincronizar las ventanas del libro activo al desplazarse horizontalmente. False para no sincronizar las ventanas. El valor predeterminado es False.

SyncVertical (Boolean) - Se omite si ActiveWorkbook es False o si se omite ese argumento. True para sincronizar las ventanas del libro activo al desplazarse verticalmente. False para no sincronizar las ventanas. El valor predeterminado es False.

BreakSideBySide

Finaliza el modo paralelo si dos ventanas están en dicho modo. Devuelve un valor Boolean que representa si el método era correcto.

Dim booBreakSideBySide As Boolean
booBreakSideBySide = ActiveWindow.Selection.BreakSideBySide

CompareSideBySideWith

Abre dos ventanas en paralelo. Devuelve un valor Boolean.

No se puede usar el método CompareSideBySideWith con el objeto Application o la propiedad ActiveWorkbook.

CompareSideBySideWith (WindowName)

WindowName: Nombre de la ventana.

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

Count

Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveWindow.Selection.Count

Item

Devuelve un solo objeto de una colección.

Item (Index)

Index: Nombre o número de índice del objeto.

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

ResetPositionsSideBySide

Restablece la posición de las ventanas de dos hojas que se están comparando una al lado de la otra.

Utilice el método ResetPositionsSideBySide para restablecer la posición de dos hojas de cálculo que se están comparando una al lado de la otra. Por ejemplo, si el usuario minimiza o maximiza una de las dos ventanas de las hojas que se están comparando, el método ResetPositionsSideBySide restablece la presentación en pantalla de modo que las dos ventanas se muestren de nuevo una al lado de la otra.

ActiveWindow.Selection.ResetPositionsSideBySide

SyncScrollingSideBySide

True permite desplazar simultáneamente el contenido de las ventanas cuando los documentos se están comparando uno al lado del otro. False deshabilita el desplazamiento simultáneo de las ventanas.

ActiveWindow.Selection.SyncScrollingSideBySide = True