Geluid afspelen

[Drieband]

Hallo,ik heb dit gevonden hier op het forum maar blijkt niet te werken met een 64bit.
Enig idee iemand hoe ik dit moet aanpassen? Zie bijlage.

Dank bij voorbaat,
Jhonny

Bekijk bijlage Kopie van test speech-1.xlsm

 

[edmoor]

Je bedoelt Office 64bit?
Doe het dan eens zo om het voor zowel 32- als 64bit Office te laten werken:

#If Win64 Then
    Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
      Alias "PlaySoundA" (ByVal lpszName As String, _
      ByVal hModule As LongPtr, ByVal dwFlags As LongPtr) As LongPtr
#Else
    Private Declare Function PlaySound Lib "winmm.dll" _
      Alias "PlaySoundA" (ByVal lpszName As String, _
      ByVal hModule As Long, ByVal dwFlags As Long) As Long
#End If

 

[Drieband]

edmoor,bedankt voor de snelle respons,dit is het helemaal en zet bij deze de vraag als opgelost.

 

[edmoor]

Stukje uitleg, ook voor meelezers:
Bij een 64-bit Office moeten de DLL's anders worden gedeclareerd. Met #If Win64 (= een compiler directive) vertel je de compiler te controleren of het gaat om een 64- of 32-bit Office. De compiler bepaalt dan welke van de twee declaraties wordt gebruikt. Voorbeelden van het gebruik van DLL's op het internet worden over het algemeen voor 32-bit Office gemaakt.

Hou er ook rekening mee dat veel invoegtoepassingen van derden om deze reden nog niet geschikt zijn voor het gebruik in een 64-bit Office installatie.

 

[HSV]

Plaats alleen dit eens (alle code van jou als tekst opmaken).

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 2 And IsNumeric(Target.Value) Then Application.Speech.Speak Target.Value
End Sub

 

[edmoor]

Die zal de 180 vast niet uitspreken zoals die in het wav bestandje

 

[HSV]

De zaal is hier stil bij 180. :d:d:d