Detalhes de vba msgbox emite splash screen

PropriedadeValor
Nome:vba msgbox emite splash screen
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




Nome do arquivo:vba msgbox emite splash screen.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:SaberExcel
Criado em: 25/11/2010 15:42
Visitas:Todos
Responsavel:Editor
Acessos:1175 Acessos
Atualizado em: 25/11/2010 15:42
Site: