Como faco para adicionar som a um arquivo do Excel?

Eu gostaria de adicionar clipes de som clique em ativado para uma folha de Excel... isso é possível? Se assim for, como faço isso? Eu gostaria de tê-lo configurado para que quando uma célula é selecionada, um som é feito.
Obrigado bom sofrimento, não admira que eu não conseguia descobrir a minha própria... tha'ts um processo de parvos e meia! Mas vou tentar itthanks...!

Resposta

Aqui está uma maneira de adicionar um arquivo wav no Excel 2003. Presumo que o processo seria semelhante no Excel 2007.

Abra sua pasta de trabalho.

Inserir > objeto

No separador 'Criar novo', selecione 'Som Wav' e clique em 'OK'

Quando abre a janela de 'Objeto de som', vá para editar > inserir arquivo.

Procure para localizar o arquivo wav e selecioná-lo.

Feche a janela do objeto de som.

Este arquivo Wav deve ser nomeado 'Objeto 1' (canto superior esquerdo), no entanto, pode ser objeto de 2, etc. ANOTE O NOME... EXATAMENTE.

Rignt clique no ícone do arquivo Wav e selecionar 'Formato de objeto'

No separador 'Propriedades', selecione 'Tamanho e mover-se com células'. Desmarque a caixa de seleção Imprimir objeto.

Na guia 'Proteção', desmarque 'Bloqueado'.

Mova o arquivo Wav para fora para uma área não utilizada da planilha e ocultar as colunas sob o arquivo Wav para escondê-lo.

Pressione ALT + F11

Inserir > módulo

Copie e cole essa macro no espaço à direita do módulo.

Sub PlayWavs()

Se ActiveCell.Address = Range("A1").Endereço, em seguida

ActiveSheet. Shapes ("objeto 1").Selecione

Verbo Selection.verb: = xlPrimary

Outra coisa

End If

End Sub

Nota: altere a célula de 'A1' para qualquer célula que você deseja usar. Certifique-se de que a linha 3 da macro reflete o nome exato do seu 'objeto'.

Dê um duplo clique na planilha que deseja empregar esta rotina dentro (objetos do Microsoft Excel... canto superior esquerdo)

Altere o menu suspenso 'Geral' para 'Planilha'.

No segundo menu suspenso à direita deve mudar para 'SelectionChange'.

Tipo 'PlayWavs' (sem aspas) entre privados Selection_Change de Sub e End Sub.

Perto de volta ao Excel.

Clique na célula A1, ou a célula que você escolheu, e vai jogar o som wav.

Você pode adicionar vários sons wav para células diferentes, repetindo este mesmo processo para criar e ocultar o som wav.

Em seguida, basta modificar a macro como no exemplo abaixo:

Sub PlayWavs()

Se ActiveCell.Address = Range("A1").Endereço, em seguida

ActiveSheet. Shapes ("objeto 1").Selecione

Verbo Selection.verb: = xlPrimary

ElseIf se ActiveCell.Address = Range("B1").Endereço, em seguida

ActiveSheet. Shapes ("objeto 2").Selecione

Verbo Selection.verb: = xlPrimary

ElseIf se ActiveCell.Address = Range("C1").Endereço, em seguida

ActiveSheet. Shapes ("objeto 3").Selecione

Verbo Selection.verb: = xlPrimary

End If

End Sub

BTW: Aqui está um link para um site gratuito para sons wav. Eu uso com freqüência.

EDIT: Me ocorreu que 'quando uma célula é selecionada' poderia ter duas interpretações:

1. Você apenas deseja que o som para jogar, clicando na célula e realmente não precisa ativar a célula.

2. Você deseja reproduzir o som e tornar a célula a célula ativa.

Se a porta número 2 é sua escolha... em seguida, use essa macro:

Sub PlayWavs()

Se ActiveCell.Address = Range("A1").Endereço, em seguida

ActiveSheet. Shapes ("objeto 1").Selecione

Verbo Selection.verb: = xlPrimary

Range("a1").Selecione

Outra coisa

End If

End Sub

Inscrever - receber um email se alguém adiciona novas respostas/comentários

Comentários

André na 18 Mai 2023

Sim, é possível adicionar um som a uma folha de Excel. Primeiramente, certifique-se de que o arquivo que você está usando é um tipo de arquivo suportado pelo Excel, como .wav ou .mp3. Em seguida, vá para a guia "Inserir" e clique em "Áudio". Selecione o arquivo de som que você deseja adicionar e uma pequena caixa de som será visível na sua planilha do Excel. Agora, para fazer com que um som seja reproduzido quando uma célula é selecionada, você terá que usar a programação VBA (Visual Basic for Applications). Você pode usar o seguinte código:

```VBA
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Speech.Speak "Seu texto aqui"
End Sub
```
Substitua "Seu texto aqui" pelo que você quer que seja dito quando uma célula é selecionada.

Espero que isso ajude! Boa sorte com a sua planilha do Excel!

Responder

O seu comentário

Acho que a resposta não está correta ou que você gostaria de acrescentar mais
alguma informação? Envie o seu comentário abaixo..