Image & Sound in Cell

[Bob Morrison]

In XL 2010 is it possible to have a picture in a Cell and it plays an Audio file if you click on it?

 

[Bob Morrison]

Sorry Worf but it doesn't do anything.

Don't know what I'm doing wrong.

I'll try and attach a screenshot of of the macro as I've set it up.

 

[Bob Morrison]

I'll try just posting a link to the screenshot on Dropbox.

https://www.dropbox.com/sc/js3tjqqvpi314n4/AAD_zxaJOpVIi63Gy7_QjS7ea

 

[Worf]

Like this:

' sheet module


Public Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long


Sub OpenPlay()
Dim fp$, lngErr&
fp = "C:\Users\pc\Desktop\Rex's Stuff\Chair.wma"
lngErr = ShellExecute(0, "OPEN", fp, "", "", 0)
End Sub

 

[Worf]

Also, save the workbook as Rex.xlsm to enable macros.

 

[Bob Morrison]

You're a legend Worf it works!

Hope somebody can delete post #11, I think I must have pasted the image not the link.

 

[Worf]

You are welcome

 

[Sid_London]

Is there a way to do this without any pictures (so just clicking on any empty cell in the active workbook) and using the 'Say This' command? I've been playing around with the following code:

Sub SayThis()
Dim SayThis As String
If ActiveCell <> "A1" Then
SayThis = "Ouch."
Application.Speech.Speak (SayThis)
End If
End Sub

I basically want to set up the workbook so that the user gets told off by Excel for clicking on cells (so if they continue to click anywhere in the workbook, Excel gets more annoyed).

 

[Worf]

Like this?

' sheet module


Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Target.Address <> Range("a1").Address Then Application.Speech.Speak "Ouch"


End Sub