VBA Excel Basics - Modo profissional de Abrir e Fechar o MS Excel

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

O objeto Application do MS Excel disponibiliza uma coleção de objetos para controle das janelas (Windows) que permitem que abramos, organizemos, redimensionemos e fechemos as janelas filhas (child) do MS Excel.

 O código abaixo abrirá uma nova janela filha e colocará as janelas em cascata, abrindo as janelas para a pasta de trabalho ativa:

Sub OpenCascadeWindows()

    ActiveWindow.NewWindow

    Application.Windows.Arrange xlArrangeStyleCascade, True

End Sub

Feche a janela aberta no código anterior e restaure a janela original para um estado maximizado no Excel:

Sub CloseMaximize()

    ActiveWindow.Close

    ActiveWindow.WindowState = xlMaximized

End Sub

Controle a janela pai do MS Excel usando as propriedades WindowState e DisplayFullScreen do objeto Application

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub ChangeExcelWindowState()

    Let Application.WindowState = xlMaximized

    Sleep 1000

    Let Application.WindowState = xlMinimized

    Sleep 1000

    Let Application.WindowState = xlNormal

    Sleep 1000

    Let Application.DisplayFullScreen = True

    Sleep 1000

    Let Application.DisplayFullScreen = False

End Sub

Tags: VBA, Excel, Basics, open, close, window