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
xlArrangeStyleCascade | Las ventanas se organizan en cascada. |
xlArrangeStyleHorizontal | Las ventanas se organizan horizontalmente. |
xlArrangeStyleTiled | Valor predeterminado. |
xlArrangeStyleVertical | Las ventanas se organizan verticalmente. |
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