Este fórum está sendo desativado

[albinosergio]

Senhores boa tarde,
Preciso por favor de uma macro que emita um som wav (3seg a escolher) quando a resposta for certa e outro som (3seg a escolher) quando a resposta for errada. Será uma pergunta com 4 opções de respostas (A, B, C e D) essas opções estou pensando no "Botão de Opção (Controle de Formulário)".
Ao clicar no botão: "RESPOSTA" dependendo do resultado, emitirá um som identificando que errou ou acertou.
Caso meu ponto de vista não tenha sido claro para os senhores entenderem, planejarei um anexo modelo, OK?
Desde de já meus agradecimentos pelas suas habituais colaborações
Um abraço grande

[Domingsp]

Já precisei fazer algo parecido mas fiz com mp3. O codigo abaixo verifica o valor em Q8. Se for igual a 15 ele executa o audio:

Código: Selecionar todos

Private Sub CommandButton2_Click()
  If Range("Q8") = 15 Then _
  WindowsMediaPlayer1.URL = "C:\Users\...\Documents\123TESTANDO\LUCKY SOUND.mp3"
End Sub

Voce vai usar um arquivo para cada resposta. deve adaptar o codigo para seu uso, modificando o caminho de acordo com seu arquivo de audio. E antes inserir um player na sua planilha. Segue esse caminho:

Desenvolvedor/Inserir/Mais Controles/Windows Media Player

[albinosergio]

Gostei muito desse porque penso que podemos usar até mais de dois áudio(me corrija se estiver erado)
Ainda não consegui sucesso, por isso te pergunto, eu tenho que usar o caminho do Diretório que você colocou ou posso usar outro? esse código é na pasta da planilha ou em módulo/
Um abraço grande

[Domingsp]

Esse código é uma Private, não deve ser colocado em modulo, e sim no espaço de Objetos ( no espaço de planilhas).
Sugiro voce colocar o arquivo de audio na mesma pasta do seu arquivo do Excel. Aqui eu tenho uma pasta so para trabalhos no Excel. A seguir:
1) clique com o botao direito do mouse no arquivo de audio
2) Desça ate Propriedades. Ali vai estar um item chamado Local.
3) Copie o caminho escrito ali e substitua no código que postei (mantenha as aspas)

Deve funcionar. Qualquer coisa, tamos aí

[Domingsp]

Não testei assim, mas se voce usar esse codigo num módulo comum, acredito que deve funcionar também.

[albinosergio]

Desculpe domingsp a minha ignorancia,
Fiz exatamente coforme suas orientações (pelo menos eu acho), coloquei os dos arquivos num mesmo diretório, copiei em propriedade do audio o caminho e colei no código entre as "aspas", acionei o windowsmediaplayer.
só troque a célula "Q1" para "A1", digitei o nº 15 mas a musica não tocou.
Estou anexando o meu teste (não sei se é permitido) para ver se é possível você ma ajuda a ar onde é que estou errando, OK?
De qualquer forma agradeço seus esforços

[albinosergio]

Enquanto isso vou continuar tentando

[Domingsp]

Baixei seu exemplo e observei que não há nenhum botão para execução do código. Voce provavelmente está tentando executar o audio apertando o play do windows player. Não funciona. O codigo deve ser executado atraves de um botão inserido na planilha.
Eu deveria ter explicado que a Private Sub CommandButton2_Click() se refere a um botão chamado CommandButton2.
Faça o seguinte agora:
1) Desenvolvedor/Inserir/Botao de Comando(Controle ActiveX)
2)Desenhe o botão
3)Clique com o botão direito do mouse no botão criado.
4) Vá em Exibir Código
5) No espaço entre "Private Sub CommandButton_Click()" e "End Sub", cole o seu código:

Código: Selecionar todos

  If Range("A1") = 15 Then _
  WindowsMediaPlayer1.URL = "C:\Users\Familia bonita\Documents\PASTA DE TESTE\[TS] Introdução de Jornal.mp3"

Volte na planilha e aperte o botão que criou. O audio so toca se A1=15.
Deve funcionar. Aí voce adapta pro seu projeto. Qualquer coisa tamos aí

[Domingsp]

Só mais uma coisa: Para o botão criado funcionar, desative o Modo de Design, clicando em Modo de Design, na guia Desenvolvedor

[albinosergio]

Show, show, show!!!
Cara, VOCÊS SÃO DEMAIS, parabéns a vocês demais, além da paciêcia é claro rsss...
Muito obrigado, consegui colocar até a minha voz
Muito obrigado mesmo.
Até breve amigo