Página 1 de 1

Tocar som ao selecionar célula

Enviado: 10 Abr 2018 às 14:47
por Chatonov
Boa tarde a todos, a primeira vez que escrevo nesse fórum. Sou muito leigo em relação a qualquer coisa que envolva programação.

Pesquisando na internet achei esse código VBA que exibe a imagem quando clico na célula. Fiz o teste e ele funciona perfeitamente bem pois exibe as imagens de acordo com o que está preenchido na célula quando selecionamos ela:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next

If Target.Column = 3 And Target.Row > 6 And Target.Value <> "" Then
Me.Shapes.Range(Array("Foto")).Delete

Dim FullImagePath As String

FullImagePath = ThisWorkbook.Path & "\Imagens\" & Target.Value & ".jpg"
If Dir(FullImagePath) = "" Then
FullImagePath = ThisWorkbook.Path & "\Imagens\" & Target.Value & ".jpeg"
If Dir(FullImagePath) = "" Then
FullImagePath = ThisWorkbook.Path & "\Imagens\" & Target.Value & ".png"
If Dir(FullImagePath) = "" Then Exit Sub
End If
End If

Me.Pictures.Insert(FullImagePath).Select
With Selection
.Name = "Foto"
.Left = 275
.Height = 100
.ShapeRange.Shadow.Type = msoShadow21 'Adciona sombra
End With

Target.Activate
Else
Me.Shapes.Range(Array("Foto")).Delete
End If

End Sub

Eu gostaria de um código que funcione exatamente como esse mas ao invés de exibir uma imagem eu gostaria que ele executasse um som (mp3) conforme o valor digitado na célula. Isso seria possível?

Também seria possível que ele executasse os dois processos ao mesmo tempo: exibir a imagem e executar o som conforme o valor digitado na célula?

Desde já agradeço a ajuda

Re: Tocar som ao selecionar célula

Enviado: 10 Abr 2018 às 17:08
por Basole
Sim é possivel.

Mas envie um modelo indicando intervalo que deseja digitar

Re: Tocar som ao selecionar célula

Enviado: 11 Abr 2018 às 10:34
por Chatonov
Basole escreveu:Sim é possivel.

Mas envie um modelo indicando intervalo que deseja digitar
Obrigado pela ajuda Basole, vou enviar o arquivo que estou usando, os nomes preenchidos na coluna 3 (Nome Comum) são os que determinam a abertura das imagens e possivelmente dos sons. Está bem inicial, mais nomes serão acrescentados.

Desde já agradeço

Tocar som ao selecionar célula

Enviado: 25 Set 2019 às 10:25
por AloysioNeto
Chatow, é possível disponibilizar o código de vba que tocar mp3 ao selecionar uma célula? Desde já, agradeço.