수다닷컴

제가
뮤직플레이어를 만들고있는데
(파워포인트VBA로)-----------------------------------------------------------------------------------------------------------------
Declare Function mciSendString Lib winmm.dll Alias mciSendStringA (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public MusicName As Shape
Public Sub Play_()

Dim RetVal As Integer
RetVal = mciSendString(open & Chr$(34) & Slide1.CommonDialog1.FileName & Chr$(34) & alias mp wait, 0, 128, 0)
RetVal = mciSendString(play mp, 0, 128, 0)
End Sub

Public Sub Pause_()
Dim RetVal As Integer
RetVal = mciSendString(Pause mp, 0, 128, 0)
End Sub

Public Sub Close_()
Dim RetVal As Integer
RetVal = mciSendString(Close mp, 0, 128, 0)
End Sub

Public Sub Search_()
Dim RetVal As Integer
Set MusicName = ActivePresentation.Slides(1).Shapes(MusicName)

Slide1.CommonDialog1.Filter = 음악파일 (*.mp3;)
Slide1.CommonDialog1.ShowOpen

RetVal = mciSendString(Close mp, 0, 128, 0)
Play_
MusicName.TextFrame.TextRange = Slide1.CommonDialog1.FileTitle
End Sub----------------------------------------------------------------------------
코드는 이렇게 쓰긴 했는데..
자꾸
MusicName.TextFrame.TextRange = Slide1.CommonDialog1.FileTitle
여기에서 오류가 나네요..아 저기 MusicName은 TextBox.Text랑 같은거라 보시면 될거에요

신청하기