ActiveWindow.WindowState

ActiveWindow.WindowState

Há três WindowSates diferentes que uma planilha pode ter: Minimizado, Maximizado e Normal. Você pode definir o estado da janela com uma destas linhas de código

ActiveWindow.WindowState = xlMinimized

ActiveWindow.WindowState = xlMaximized

ActiveWindow.WindowState = xlNormal

E, é claro, depois de programar um elemento visual, você pode inserir um loop e criar um “efeito animado”. O seguinte seria um efeito interessante, possivelmente ao reexibir uma planilha.

Essa macro redimensionará gradualmente uma planilha de pequena para maximizada, fazendo com que a planilha pareça estar crescendo:

Sub CrescerPlanilha()

Dim x As Integer



With ActiveWindow

    .WindowState = xlNormal

    .Top = 1

    .Left = 1

    .Height = 50

    .Width = 50

    

    For x = 50 To Application.UsableHeight

    .Height = x

    Next x

    

    For x = 50 To Application.UsableWidth

    .Width = x

    Next x

    

    .WindowState = xlMaximized

End With



End Sub

<<Retornar aos exemplos de VBA