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?

 

[Worf]

Hi Bob

I'm going offline now but will look into this soon...

 

[Bob Morrison]

Thanks Worf.

 

[Worf]

Hi Bob
- Paste the code below at the module corresponding to the sheet that contains the picture
- Right click the picture, choose “assign macro” and pick PlayWAV from the list
- When you left click the picture, the sound file will play.

' sheet module


Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long


Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
    
Sub PlayWAV()
Dim wf$
wf = ThisWorkbook.Path & "\beaming.wav"     ' same path as workbook
PlaySound wf, 0&, SND_ASYNC Or SND_FILENAME
End Sub

 

[Bob Morrison]

Thanks Worf,

I’ll see if I can get it to work but I know little or nothing about VB or Macro’s.

However, I’m here to learn.

Cheers

Bob

 

[Bob Morrison]

No luck so far Worf but I'm still working on it.

I think I may have to replace part of your code with my sound file and location?

Bob

 

[Michael M]

Yes, you will

I think I may have to replace part of your code with my sound file and location?

Also, have you assigned the macro to the picture ?
Did you put the code into the appropriate sheet module?
Right click on picture>>Assign macro>> select macro from list>>OK

 

[Bob Morrison]

Thanks Michael,

I'll be back when I've tried again.

 

[Bob Morrison]

OK guys I’m getting something all wrong, so I wonder if you could rewrite the Macro for me given the following information

The sound file path is C:\Users\pc\Desktop\Rex's Stuff\Chair.wma

And the Workbook file path is C:\Users\pc\Desktop\Rex's Stuff\Rex.xlsx


Everything is on sheet 1 of the workbook.

For those wondering what it is I’m trying to achieve the story goes like this.

A friend has had a major Stroke which has left him totally paralysed except for his left arm and non-verbal except for ya and na which is his version of yes and no.

However, his comprehension is fine and he seems to understand everything we say even to laughing at jokes. He can also identify objects by pointing with his left arm, but is unable to read or write even though he was left handed.

So what I am trying to do for a start is make him a six cell spreadsheet with a different picture in each cell that relate to something he would like done. In this case there is a picture of a Chair and if he clicks on it or touches it (touchscreen) a small sound file plays, in this case “Can somebody adjust my chair please”.

This may not work, but it’s worth a try because he can work his TV Remote. (just as well he’s male).

I have tried a couple of Augmentative & Alternative Communication programmes but they are not sufficiently editable for my purpose and most are targeting children not stroke victims.

So that’s the background and I’m sure if we can get clicking on the picture of the chair to play the appropriate sound file, the other five cells will follow.

Many Thanks

Bob

 

[Worf]

Hi Bob

Please test this new version:

' 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:\pub\opening.wma"   ' your sound file path here


lngErr = ShellExecute(0, "OPEN", fp, "", "", 0)


End Sub