Dick, would it be a lot of trouble to make the American National Anthem play when displaying the flag?
First, go to the Embassy of the United States of America in Stockholm, Sweden’s website and download their wav file of the national anthem.
Next, go to The Spreadsheet Page and borrow John’s code for playing a wav file.
With a little modification, the code looks like this:
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(ByVal sWav As String)
Call PlaySound(sWav, 0&, SND_ASYNC Or SND_FILENAME)
End Sub
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(ByVal sWav As String)
Call PlaySound(sWav, 0&, SND_ASYNC Or SND_FILENAME)
End Sub
and add this to the fly the flag code
sWav = ThisWorkbook.Path & “anthem.wav”
PlayWAV sWav
PlayWAV sWav
Don’t forget to declare sWav in your code. Or you can just download the file
Dick, this is fantastic, I really owe you one on this.
Made an Excel file with 3 sheets and commands which I’ll send to my friends and family in the States on the 4rth of July.