How to simulate speech Echo in VBA

Submitted by Support on Fri, 06/25/2010 - 03:36

The following snippet simulates ( a sort of ) the Echo effect in VBA. This uses Microsoft Speech Object Library

Sub Voice_It_Out()

Dim oVoice As SpVoice                               ' Voice Object

' --------------------------------------------------------------
' Code for http://vbadud.blogspot.com
' --------------------------------------------------------------

Set oVoice = New SpVoice

For iVol = 100 To 10 Step -10
    oVoice.Volume = iVol
    oVoice.Speak "Echo!"
Next iVol

End Sub