Tocar som ao selecionar célula
Enviado: 10 Abr 2018 às 14:47
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
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