Sound With Message Box

[Guzzlr]

Sub Delete_Column()

With Worksheets("Sheet1")
    If Range("D1") <> "Percentage" Then
        MsgBox "Please Run Program First"
        Exit Sub
        Else: Columns("D:D").Delete
    End If
End With


End Sub

Hello All...
Quick Question:
How do I get sound, when the Message Box is displayed?
Thanks for the help
excel 2010

 

[Guzzlr]

With Worksheets("Sheet1")    If Range("D1") <> "Percentage" Then
        Application.Speech.Speak "Please Run Program First", SpeakAsync = False
        MsgBox "Please Run Program First"
        Exit Sub
        Else: Columns("D:D").Delete
    End If
End With

Got it...this makes the speech happen the same time the box is displayed. I also found an interesting article on-line of how to change speech and sound.
Thanks for the help.

Make Excel Talk with Application.Speech.Speak VBA - wellsr.com

 

[Jaafar Tribak]

With Worksheets("Sheet1")    If Range("D1") <> "Percentage" Then
        Application.Speech.Speak "Please Run Program First", SpeakAsync = False
        MsgBox "Please Run Program First"
        Exit Sub
        Else: Columns("D:D").Delete
    End If
End With

Got it...this makes the speech happen the same time the box is displayed. I also found an interesting article on-line of how to change speech and sound.
Thanks for the help.

Make Excel Talk with Application.Speech.Speak VBA - wellsr.com

Nice !
I didn't know about the handy SpeakAsync argument ... Although it should be set to TRUE not to False.

 

[ColdGeorge]

Hi

SpeakAsync[B]:[/B]=True

ColdGeorge

 

[Guzzlr]

[COLOR=#333333]Although it should be set to TRUE not to False.[/COLOR]

This is the little backwards part of the way my code is written, according to the article, it should be set to TRUE. However, when set to True, the voice still runs after the msgbox is closed, because (I think) the program is stalled until the OK box is clicked and the program resumes.
Setting it to False, with the speech line before the msgbox, allows the macro to run that particular line of code and then to the msgbox line.
So, technically, the speech doesn't happen at the same time, but slightly ahead of the msgbox line, which happens so fast it appears to happen at the same time...at least that's my guess.

Actually, now that I think about it, if I set the speech line before the msgbox line, I would not need the SpeakAsync anyway...
Thanks

 

[Guzzlr]

[COLOR=#333333]Actually, now that I think about it, if I set the speech line before the msgbox line, I would not need the SpeakAsync anyway...[/COLOR]

Well that didn't work. Without the SpeakAsync, and the Speech line before the msgbox line, the speech talks, first, and then the msg box appears.
I'll keep it at False, which makes it appear the Speech & the Msgbox happen at the same time