Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Executar Som em Mac...
 
Notifications
Clear all

Executar Som em Macro

 
2024 - VBA & Macros
2 Posts
1 Usuários
0 Reactions
1,686 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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 "AudioSIM.wav
ou se na célula E7 o resultado for "FUNCIONÁRIO NÃO AUTORIZADO", a macro executar o som "AudioNÃ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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/02/2013 11:22 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

ricardo, utilize :

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

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 SIREFAudioSIM.wav", 0)
    Else
        Call sndplaysound("C:Projeto SIREFAudioNÃO.wav", 0)
    
    End If
    
End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/02/2013 5:25 am
Forum Jump:
  Tópico Anterior
Próximo Tópico