Executar Som em Macro

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Executar Som em Macro

Mensagempor etoriricardo » Qua Fev 27, 2013 2:22 am

Projeto SIREF.zip
Boa Noite Amigos,

Meu sisteminha está quase pronto, só quero finalizar executando um Som ao Final da Macro:

Se na célula E7, o resultado for "FUNCIONÁRIO LIBERADO", a macro executar o som "Audio\SIM.wav
ou se na célula E7 o resultado for "FUNCIONÁRIO NÃO AUTORIZADO", a macro executar o som "Audio\NÃO.wav

O Som tem que ser executado em segundo plano, não influenciando na Frente do Sistema.


Tem Como???

Grato desde Já pela Força!!!

Étori Monteiro
etoriricardo
 

{ SO_SELECT }

Re: Executar Som em Macro

Mensagempor Mauro Coutinho » Qua Fev 27, 2013 8:25 am

ricardo, utilize :

A Declaração coloque no inicio antes de todas as rotinas :
Fonte : http://br.dir.groups.yahoo.com/group/Ex ... essage/536

Código: Selecionar todos
Declare Function sndplaysound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub TestandoSom()

'Ajuste o caminho dos arquivos WAV
    If Range("E7").Value = "FUNCIONÁRIO LIBERADO" Then
   
        Call sndplaysound("C:\Projeto SIREF\Audio\SIM.wav", 0)
    Else
        Call sndplaysound("C:\Projeto SIREF\Audio\NÃO.wav", 0)
   
    End If
   
End Sub


[]s
Mauro Coutinho
 


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 3 visitantes