AW: Systenmlautstärke ändern, klappt, aber ...
21.03.2023 16:53:18
Dieter(Drummer)
Danke Matthias für Rückmeldung.
... aber mit dieser Variante: https://wellsr.com/vba/2016/excel/use-vba-to-mute-unmute-volume-up-volume-down/
es mal versucht und es geht mit Luststäre UP und Down.
Dies UP und Down würde ich jetzt gerne über "SpinButton1_Change" lösen. Leider bekomme ich es nicht hin, Up und Down damit zu realiseiren.
Mi fehlt der Code, beide Varianten über diesen SpinButton1 zu lösen.
Evtl. kannst du mir bei dem Code für den SpinButton1 helfen.
Mit Gruß und Bitte um nochmalige Hilfe,
Dieter(Drummer)
Hier der Code für Laustsärke UP und Down:
Const VK_VOLUME_MUTE = &HAD
Const VK_VOLUME_DOWN = &HAE
Const VK_VOLUME_UP = &HAF
#If VBA7 Then
Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#Else
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
#End If
Sub VolUp()
keybd_event VK_VOLUME_UP, 0, 1, 0
keybd_event VK_VOLUME_UP, 0, 3, 0
End Sub
Sub VolDown()
keybd_event VK_VOLUME_DOWN, 0, 1, 0
keybd_event VK_VOLUME_DOWN, 0, 3, 0
End Sub
Sub VolToggle()
keybd_event VK_VOLUME_MUTE, 0, 1, 0
End Sub