Just nu i M3-nätverket
Gå till innehåll

Musik i excel


klippa

Rekommendera Poster

Går det att lägga in att när en viss händelse sker i ett dokument så spelas det upp en musiksnutt när man öppnar?

 

Ska försöka förklara bättre...

I ett blad har kostnaderna överstigit budgeten och där har jag en villkorsstyd formatering som gör texten röd vid såna tillfällen.

Nu är det fler än jag som är inne i det dokumentet och jag skulle vilja att när dom öppnar upp det dokumentet så spelas det upp en liten melodisnutt oavsett om dom är inne i den fliken eller inte (dokumentet består av 15 flikar)

 

 

Länk till kommentar
Dela på andra webbplatser

Visst går ett spela ljud/musik i Excel. För att göra det gör man ett anrop via Windows API till funktioner i Windows standardbibliotekt. Är det en Mac-dator du sitter på så fungerar inte det jag nedan skriver.

 

Skapa en modul i VBA editorn. Högst upp i modulen lägger du följande rader:

Private Declare Function PlaySoundA 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

Vilket skapar en alias till funktionen PlaySound i winmm.dll.

 

Själva koden som sedan spelar ditt ljud kan se ut såhär:

Public Sub WAVPlay(fileName As String)
   On Error Resume Next
   Call PlaySound(fileName, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

som du då anropar med den WAV-fil du vill spela upp. Ja, tyvärr, av vad jag vet endast WAV-filer via detta anrop.

 

Om filen inte kan spelas upp spelas ett "bump" upp.

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

Länk till kommentar
Dela på andra webbplatser

Oj... jag har aldrig jobbat med VBA innan....

Får väl testa lite annars kanske jag återkommer med några "dumma" frågor :)

 

 

Länk till kommentar
Dela på andra webbplatser

Finns inga dumma frågor, bara dumma svar.

 

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.

×
×
  • Skapa nytt...