Executar um som no calc de acordo com uma condição
É possível executar um som no Calc a partir de uma condição numa dada célula?
É possível executar um som no Calc a partir de uma condição numa dada célula?
Tente este arquivo que estou enviando.
Fiz os testes aqui e deu certo. Importante: o arquivo tem que ser em ".WAV". Em outra extensão ele não funciona. Coloque também a segurança de macro baixa
Código:
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
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("A1").Value = "alarme" Then
Call sndplaysound("C:\Users\Public\Music\Sample Music\Alarme.WAV", 0)
Else
Call sndplaysound("C:\Users\Public\Music\Sample Music\Alarme.WAV", 0)
End If
End Sub
Fonte: http://www.planilhando.com.br/forum/v...
Fonte do som que usei: http://audiocidades.utopia.org.br/bib...
Perguntadas: 2015-10-22 14:15:05 +0100
Lidas: 186 vezes
Última atualização: Mar 08 '18