Music Player Addin For Excel 2003 - Suggestions-Bugs-Etc...

This is a music Player Addin for Excel 2003. The code can be seen by pressing Alt + F11.

Would appreciate if you can share your thoughts, if any. Please do not reply in that thread.

Sidz

Sid, I like it!

Using office 2007, i open my mp3

click the mute button and I receive

Object variable or With block variable not set

i'm guessing because the tool bars aren't created in the same way?

Code:

---

Sub AdjustSound()
    If MuteMe = False Then
        MuteMe = True
        UserForm1.MediaPlayer1.Mute = True
        With SndBtn
            .FaceId = 3730
            .TooltipText = "Enable Sound"
            .Tag = "SndButton"
            .OnAction = "AdjustSound"
        End With
    Else
        MuteMe = False
        UserForm1.MediaPlayer1.Mute = False
        With SndBtn
            .FaceId = 68
            .TooltipText = "Mute Sound"
            .Tag = "SndButton"
            .OnAction = "AdjustSound"
        End With
    End If
End Sub

---

@ koolsid,

It looks cool! I'm going to try it now. :)

Quote:

---

Originally Posted by Mitch_s_s

Sid, I like it!

---

You do realize Sid said the music player was for Excel 2003 not 2007?

Edit:

I get the following error:

Quote:

---

Method 'Play' of object "IMediaPlayer2" failed!

---

In

Code:

---

Private Sub UserForm_Activate()
    UserForm1.Hide
    MediaPlayer1.Filename = UserForm2.List1.List(i, 1)
    MediaPlayer1.Play
End Sub

---

The bold part is the error!

nope that didn't even register ha!

ah well, ignore me

@Mitch: Let me se If I can make one for 2007 :)

@Night: Is media player installed on your pc? If yes, which version?

Quote:

---

Originally Posted by koolsid

@Mitch: Let me se If I can make one for 2007 :)

@Night: Is media player installed on your pc? If yes, which version?

---

Yes, it is Media Player 11! I also have the MP11 run-time files installed too.

Quote:

---

Yes, it is Media Player 11! I also have the MP11 run-time files installed too.

---

No wonder. It is supposed to work with 9.0. Congratulations. You have managed to find one bug.

I guess I have to redevelop it keeping it version free...

@Night: I have used a new control. It should work now

:lol: I now receive:

Quote:

---

Method or data member not found

---

In

Code:

---

Sub PlayMusic()
    i = frmPlayList.List1.ListIndex
   
    If Boolpause = False Then
        MMControlForm.Show
        BoolStop = True
    Else
        MMControlForm.mmKool.Command = "Play"
    End If

---

Like I mentioned there, you need MCI32.Ocx

Check if this file is there in windows system32 directory?

Give me a moment will upload the ocx file. Save the file in the windows system32 folder and then click on the Start=>Run and type the following. (Before you do this close Excel.)

C:\WINDOWS\system32\regsvr32 C:\WINDOWS\system32\Mci32.ocx

Now open excel and run it :)

Quote:

---

Originally Posted by koolsid

Like I mentioned there, you need MCI32.Ocx

Check if this file is there in windows system32 directory? Before using the tool, go to VBA Editor and in the toolbox add reference to this file. It should work then.

Give me a moment will upload the ocx file. Save the file in the windows system32 folder and then click on the Start=>Run and type the following. (Before you do this close Excel.)

C:\WINDOWS\system32\regsvr32 C:\WINDOWS\system32\Mci32.ocx

Now open excel and run it :)

---

I must have overlooked the Mci32.ocx when I read the original thread! The program is working now.

Quote:

---

I must have overlooked the Mci32.ocx when I read the original thread! The program is working now.

---

Phew!!! Finally :D

i cant see the code.

Close Excel first.

Download the file "My Music Player Ver 1.1.zip", unzip it. There is an xla file. Double click it....

Now when Excel opens you won't see a workbook. That is okay. Press Alt+F11. You will enter the Vba Code area. There on the LHS you will see the VBA Project(My Music Player Ver 1.1.xla)
Expand it to see the code...

Hope this helps...