| Descricao: |
 Saberexcel - O Site das Macros
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 tudos sobre o Aplicativo Microsoft Excel VBA com Saberexcel
|