Índice
ActiveWindow.WindowState
São três diferentes WindowSates que uma planilha pode ter; Minimizado, maximizado e normal. Você pode definir o estado da janela com uma destas linhas de código:
123456 | ActiveWindow.WindowState = xlMinimizedActiveWindow.WindowState = xlMaximizedActiveWindow.WindowState = xlNormal |
E, claro, uma vez que você pode programar um elemento visual, você pode lançar um loop e criar um “efeito animado”. O seguinte seria um efeito interessante, possivelmente, ao exibir uma planilha.
Esta macro redimensionará gradualmente uma planilha de pequeno para Maximizado, fazendo com que a planilha pareça estar crescendo:
12345678910111213141516171819202122232425262728293031323334353637383940414243 | Sub SheetGrow ()Dim x As IntegerCom ActiveWindow.WindowState = xlNormal.Top = 1.Left = 1.Altura = 50.Width = 50Para x = 50 To Application.UsableHeight.Altura = xPróximo xPara x = 50 To Application.UsableWidth.Width = xPróximo x.WindowState = xlMaximizedTerminar comEnd Sub |