Macro to control EXCEL sheet volume on windows 7 mixer panel

[hotspot1972]

Hi Everyone
i really need help ,
i want a macro to call upon opening my workbook to set maximum volume .
i have this and it works:
Sub MaximumVolume()
Dim i As Integer
For i = 1 To 100
Call VolUp
Next i
End Sub

when i say it work - its sets the "device speakers to 100%"
However - what im finding is when you open the volume mixer panel - the excel sheet is showing muted. I need this to be unmuted and 100% volume upon opening.
seen here below as ulf throughput tool17012021

 

[diddi]

Public Declare PtrSafe 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

Sub VolToggle()
   keybd_event VK_VOLUME_MUTE, 0, 1, 0
End Sub

 

[diddi]

unfortunately getting the Mute Status is awfully complex. if you are up for it, see this post

API commands to turn volume control on

Thanks in advance for your help. Does anyone have some VBA code that will unmute the sound for the Windows Volume control using Excel? I read some stuff in Walkenbach's book about displaying stuff from the Control Panel within Excel using windows API calls but I didn't see anything about...

www.pcreview.co.uk

 

[hotspot1972]

Many thanks.
This works in toggling the mutes - can we add volume at 100%

 

[hotspot1972]

Many thanks.
This works in toggling the mutes - can we add volume at 100%

Also, it does not toggle the mute off if someone has press the mute on the volume mixer panel

 

[diddi]

you already have 100% volume and as discussed in the link, it toggles but it is hard to find out which state it is in.

 

[hotspot1972]

you already have 100% volume and as discussed in the link, it toggles but it is hard to find out which state it is in.

Thanks diddi. The toggle works, but not if the excel application has been manually muted. The issue I have is operators muting my sheet when I'm trying to alert them to a problem
I need a way, that when I have an alarm state - the maximum volume is called (which is what I have) but also it sets the maximum volume on the excel application part (and unmute) on the volume mixer panel.
I read that link you sent,scratched my head and made a coffee
I'm running Windows 7 64bit, Office 2013.

 

[diddi]

you need that head scratching link to do that and another coffee