VB EXCEL, COMO ATIVAR E DESATIVAR SOM .
Estou procurando um exemplo, para ser utulizado no VB do excel, de como deixar mudo e normalizar o SOM do windows.
Criei uma macro para alarmar quando necessário, porém, não adiantará nada se o som estiver desligado (me refiro ao icone referente ao altofalante que fica no canto inferior esquerdo do windows).
Aproveitando, o controle de volume também me interessa, pois poderei estabelecer o volume do do alarme quando este soar.
Desde já agradeço a atenção.
Criei uma macro para alarmar quando necessário, porém, não adiantará nada se o som estiver desligado (me refiro ao icone referente ao altofalante que fica no canto inferior esquerdo do windows).
Aproveitando, o controle de volume também me interessa, pois poderei estabelecer o volume do do alarme quando este soar.
Desde já agradeço a atenção.
Uma maneira mais simples é ao invez de se usar o som do alto falante, utilize o Speaker do Setup.
A maioria dos computadores vem com esse Speaker, a não ser que a pessoa montou se proprio computador e não instalou esse Speaker, porque em algumas placas ele vem imbutido e em outras ele vem separado.
Em um modulo declare a seguinte API
[txt-color=#0000f0]Public Declare Function[/txt-color] Beep [txt-color=#0000f0]Lib[/txt-color] [Ô]kernel32[Ô] Alias [Ô]Beep[Ô] ([txt-color=#0000f0]ByVal[/txt-color] dwFreq [txt-color=#0000f0]As Long[/txt-color], [txt-color=#0000f0]ByVal[/txt-color] dwDuration As Long) [txt-color=#0000f0]As Long[/txt-color]
Depois use uma rotina assim:
[txt-color=#0000f0]Sub[/txt-color] Tocar()
[txt-color=#007100][ô]Onde 200 é a frequencia[/txt-color]
[txt-color=#007100][ô]E 2000 é o tempo em milisegundos[/txt-color]
Beep 200, 2000
[txt-color=#0000f0]End Sub[/txt-color]
Espero ter ajudado.
A maioria dos computadores vem com esse Speaker, a não ser que a pessoa montou se proprio computador e não instalou esse Speaker, porque em algumas placas ele vem imbutido e em outras ele vem separado.
Em um modulo declare a seguinte API
[txt-color=#0000f0]Public Declare Function[/txt-color] Beep [txt-color=#0000f0]Lib[/txt-color] [Ô]kernel32[Ô] Alias [Ô]Beep[Ô] ([txt-color=#0000f0]ByVal[/txt-color] dwFreq [txt-color=#0000f0]As Long[/txt-color], [txt-color=#0000f0]ByVal[/txt-color] dwDuration As Long) [txt-color=#0000f0]As Long[/txt-color]
Depois use uma rotina assim:
[txt-color=#0000f0]Sub[/txt-color] Tocar()
[txt-color=#007100][ô]Onde 200 é a frequencia[/txt-color]
[txt-color=#007100][ô]E 2000 é o tempo em milisegundos[/txt-color]
Beep 200, 2000
[txt-color=#0000f0]End Sub[/txt-color]
Espero ter ajudado.
Obrigado pela dica,
mas na minha macro eu não uso o Beep, eu executo o PlaySound e devido a isto é que eu precso abilitar o som caso este esteja desabilitado.
mas na minha macro eu não uso o Beep, eu executo o PlaySound e devido a isto é que eu precso abilitar o som caso este esteja desabilitado.
Tópico encerrado , respostas não são mais permitidas