How to change windows.arrange from xlTiled to xlHorizontal and back in one procedure

[Zdenek Moravec]

I want to create one button, which changes arranging the windows on
the screen from maximized status to tiled, by next clicking from tiled
to horizontal, by next clicking from horizontal back to maximized.
I don't know, how to get ArrangeStyle value to set the next one in one
procedure.
Thank you
Zdenek Moravec
Panasonic AVC Networks Czech

 

[Dick Kusleika]

Zdenek

I don't either. You'd think that would be a property of Application or
Windows, but I sure can't find it. You could use a module level variable as
a workaround.

Dim lWndState As Long

Sub SwitchView()

Select Case lWndState
Case xlMaximized
Windows.Arrange xlArrangeStyleTiled
lWndState = xlArrangeStyleTiled
Case xlArrangeStyleTiled
Windows.Arrange xlArrangeStyleHorizontal
lWndState = xlArrangeStyleHorizontal
Case Else
ActiveWindow.WindowState = xlMaximized
lWndState = xlMaximized
End Select

End Sub

 

[zdenek.moravec]

Hello Dick
This is exactly, what I need.
Thank you
Zdenek Moravec