geluiden in openoffice

[marcos68]

beste allemaal,

weet iemand hoe je geluiden kan toevoegen in open office. ik ben bezig met een dartprogramma en wil ik graag de geluiden toe voegen zoals 180,160,140,120,100 zo dat je die hoort als je het invult.

heb deze al ingevuld maar krijg een foutmelding bij declare.

Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C4:H13")) Is Nothing Then
Select Case [Target]
Case 180
Call sndPlaySound32("D:\darts\exel dart\180", 1)
Case 160
Call sndPlaySound32("D:\darts\exel dart\160", 1)
Case 140
Call sndPlaySound32("D:\darts\exel dart\140", 1)
Case 120
Call sndPlaySound32("D:\darts\exel dart\120", 1)
Case 100
Call sndPlaySound32("D:\darts\exel dart\100", 1)
End Select
End If
End Sub

kan iemand mij helpen

 

[DiGro]

Je kunt geen Visual Basic gebruiken in OpenOffice.org.

OpenOffice.org maakt gebruik van StarBasic. Je zult dus al je macro's moeten
herschrijven naar de door OpenOffice.org gebruikte macrotaal.