Este fórum está sendo desativado

[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

[Basole]

Sim é possivel.

Mas envie um modelo indicando intervalo que deseja digitar

[Chatonov]

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

[AloysioNeto]

Chatow, é possível disponibilizar o código de vba que tocar mp3 ao selecionar uma célula? Desde já, agradeço.