Saberexcel - O Site de quem precisa aprender Macros Microsoft Excel VBA

Essa macro do Aplicativo Microsoft Excel VBA, emite uma mensagem com espaços iniciais, aqui na macro determinado como (50), observe que funcionará como um Splash Screen. é bem legal.



Sub Splash_Screen_Msg()
Dim WShell As Object
Dim mensagem As String
Application.StatusBar = "Espere apenas dois segundos...."
mensagem = Space(50) & "http://www.saberexcel.com" & Space(50)
Set WShell = CreateObject("WScript.Shell")
r = WShell.Popup(mensagem, 2, Space(35) & "Excel VBA Estudos®", 4096)
Set WShell = Nothing
Application.StatusBar = ""
End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel





   Baixe o exemplo de planilha contendo a macro acima
Excel planilha vba msgbox emite splash screen (48.08 kB)