No Excel 5 e 95 é possível anexar notas a uma célula usando um arquivo de som.
Esta nota de som pode ser reproduzida abrindo a caixa de diálogo para edição das notas de célula.
A macro abaixo também pode reproduzir a nota sonora anexada a uma célula para você:
Sub PlaySoundNotesInExcel95 (CellAddress As String) 'para Excel 5 e 95 somente If Not Application.CanPlaySounds Then Exit Sub no erro Resume Next' no caso de não haver intervalo de notas sonoras (CellAddress) .SoundNote.Play On Error GoTo 0 End Sub
O Excel 97 ou posterior não oferece mais suporte para o uso de notas sonoras.
Com as macros abaixo, é possível criar uma solução alternativa para obter o mesmo efeito:
Função de declaração pública sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Sub PlayWavFile (WavFileName As String, Wait As Boolean) If Dir (WavFileName) = "" Então saia Sub 'nenhum arquivo para reproduzir If Wait Then' reproduz som antes de executar qualquer outro código sndPlaySound WavFileName, 0 Else 'reproduz som enquanto o código está sendo executado sndPlaySound WavFileName, 1 End If End Sub PlaySoundNotesInExcel97 (CellAddress As String)' solução alternativa para reproduzir notas sonoras no Excel 97 ou posterior Dim SoundFileName As String SoundFileName = "" On Error Resume Next 'ocorre um erro se a célula não tiver uma nota SoundFileName = Range (CellAddress) .Comment.Text On Error GoTo 0 If SoundFileName = "" Then Exit Sub 'nenhuma nota de célula If InStr (1, SoundFileName, Chr (10))> 0 Então' a nota contém uma quebra de linha 'use a primeira linha como nome de arquivo SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) End If PlayFileWav SoundFileName, False End Sub
Como criar uma nota sonora:
Insira um comentário de célula clicando com o botão direito em uma célula e selecione Inserir comentário….
Preencha o nome do arquivo completo e o caminho para o arquivo de som a ser reproduzido na primeira frase do comentário da célula,
por exemplo. C: \ Foldername \ Soundfilename.wav.
Se você quiser adicionar uma mensagem escrita além do nome do arquivo de som, pressione a tecla ENTER após o nome do arquivo
para criar uma nova frase no comentário. Adicione o texto que deseja à nova frase.
A macro PlaySoundNotesInExcel97 pode ser ativada pelo eventmacro Worksheet_SelectionChange (),
isso fará com que a nota sonora seja reproduzida sempre que o usuário ativar a célula com a nota sonora.
