Turn on sound using VBA

Read this;http://www.mrexcel.com/forum/excel-q...er-volume.html

Not quite what you are after but possibly a start. Not sure how you determine the current volume level and therefore if the volume needs to go up or down? You need to loop the up or down calls several times to simulate key presses.

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
   
    Const VK_VOLUME_MUTE = &HAD 'Windows 2000/XP: Volume Mute key
    Const VK_VOLUME_DOWN = &HAE 'Windows 2000/XP: Volume Down key
    Const VK_VOLUME_UP = &HAF 'Windows 2000/XP: Volume Up key
   
 

Sub VolUp()
'-- Turn volumn up --
   keybd_event VK_VOLUME_UP, 0, 1, 0
   keybd_event VK_VOLUME_UP, 0, 3, 0
End Sub

Sub VolDown()
'-- Turn volumn down --
   keybd_event VK_VOLUME_DOWN, 0, 1, 0
   keybd_event VK_VOLUME_DOWN, 0, 3, 0
End Sub

Sub VolToggle()
'-- Toggle mute on / off --
   keybd_event VK_VOLUME_MUTE, 0, 1, 0
End Sub

Possibly of interest..............

http://support.microsoft.com/kb/118377