[엑셀 VBA] 스피커 볼륨 조절

■  스피커 볼륨 조절

※ 아래 예제는 엑사모 latinum님이 만든 소스입니다. 

제가 필요에 의해서 블로그에 정리하는 차원에서 올린소스이니 착오없으시길 바랍니다. 

Option Explicit
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 dhTest()
    dhVolControl 30 '보륨 크기 조절하기
End Sub
Sub dhVolControl(lngD As Long)
Dim i As Long
    '볼륨을 최대한으로 낮추고
    For i = 1 To 100
        dhVolDown
    Next i
    For i = 1 To lngD '사용자가 선택한 만큼 올리기
        dhVolUp
    Next i
End Sub
 
Sub dhVolUp()
    '볼륨을 높이기
   keybd_event VK_VOLUME_UP, 0, 1, 0
   keybd_event VK_VOLUME_UP, 0, 3, 0
End Sub
Sub dhVolDown()
    '볼륨 낮추기
   keybd_event VK_VOLUME_DOWN, 0, 1, 0
   keybd_event VK_VOLUME_DOWN, 0, 3, 0
End Sub
Sub dhVolToggle()
    '소리 끄기/켜기 토글
   keybd_event VK_VOLUME_MUTE, 0, 1, 0
End Sub