[엑셀마리오게임] 배경음악 출력 매크로

Sub WorkBook_PathTest()
 
MsgBox ActiveWorkbook.Path
 
End Sub

Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias _
   "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
   lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
   hwndCallback As Long) As Long

Public Function GetShortPath(strFileName As String) As String
 
'// File System Object를 생성합니다.
Dim fso As Variant
Set fso = CreateObject("Scripting.FileSystemObject")
 
'// 만약 FSO가 파일로 존재할 경우 File의 ShortPath를 반환합니다.
If fso.FileExists(strFileName) Then
    GetShortPath = fso.GetFile(strFileName).ShortPath
    Exit Function
End If
 
'// 만약 FSO가 폴더로 존재할 경우 File의 ShortPath를 반환합니다.
If fso.FolderExists(strFileName) Then
    GetShortPath = fso.GetFolder(strFileName).ShortPath
    Exit Function
End If
 
End Function

'##############################
'해당 경로의 음악을 출력합니다.
'##############################
Public Sub PlaySound()
 
Dim FileName As String
 
'// 현재 사용중인 워크북과 같은 폴더에 위치한 marioBGM.mp3 파일경로를 LongPath로 받아옵니다.
FileName = ActiveWorkbook.Path & "\marioBGM.mp3"
'// Long Path를 Short Path로 변환합니다.
FileName = GetShortPath(FileName)
 
'// mciSendString 함수를 통해 해당경로의 음악을 출력한 뒤, 출력되지 않았을 경우 메세지박스를 띄웁니다.
Play = mciSendString("play " & FileName, 0&, 0, 0)
If Play <> 0 Then
   MsgBox "오디오파일을 확인할 수 없습니다. 다시 확인해주세요"
End If
 
End Sub
 
'##############################
'해당 경로의 음악이 출력중일 경우, 음악을 중단합니다.
'##############################
Public Sub StopSound()
 
Dim FileName As String
 
FileName = ActiveWorkbook.Path & "\marioBGM.mp3"
FileName = GetShortPath(FileName)
 
Play = mciSendString("close " & FileName, 0&, 0, 0)
 
End Sub

'###########################
'Sound 모듈
'###########################
 
Option Explicit
 
Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias _
   "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
   lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
   hwndCallback As Long) As Long
 
Dim Play
 
Public Function GetShortPath(strFileName As String) As String
 
Dim fso As Variant
Set fso = CreateObject("Scripting.FileSystemObject")
 
If fso.FileExists(strFileName) Then
    GetShortPath = fso.GetFile(strFileName).ShortPath
    Exit Function
End If
 
If fso.FolderExists(strFileName) Then
    GetShortPath = fso.GetFolder(strFileName).ShortPath
    Exit Function
End If
 
End Function
 
Sub Path_Test()
 
MsgBox ThisWorkbook.Path
 
MsgBox GetShortPath(ThisWorkbook.Path)
 
End Sub
 
Public Sub PlaySound()
 
Dim FileName As String
 
FileName = ActiveWorkbook.Path & "\marioBGM.mp3"
FileName = GetShortPath(FileName)
 
Play = mciSendString("play " & FileName, 0&, 0, 0)
If Play <> 0 Then
   MsgBox "오디오파일을 확인할 수 없습니다. 다시 확인해주세요"
End If
 
End Sub
 
Public Sub StopSound()
 
Dim FileName As String
 
FileName = ActiveWorkbook.Path & "\marioBGM.mp3"
FileName = GetShortPath(FileName)
 
Play = mciSendString("close " & FileName, 0&, 0, 0)
 
End Sub
 
'###########################
'Test 모듈
'###########################
 
Option Explicit
 
Sub VBA3_4()
 
PlaySound
'// Mario_Print 명령문은 이전 강의내용을 참고하세요.
Mario_Print
 
End Sub