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

[Siddharth Rout]

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

[Mitch_s_s]

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?

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

[Nightwalker83]

@ koolsid,

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

Sid, I like it!

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

Edit:

I get the following error:

Method 'Play' of object "IMediaPlayer2" failed!

In

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

The bold part is the error!

[Mitch_s_s]

nope that didn't even register ha!

ah well, ignore me

[Siddharth Rout]

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

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

[Nightwalker83]

@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.

[Siddharth Rout]

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...

[Siddharth Rout]

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

[Nightwalker83]

I now receive:

Method or data member not found

In

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

[Siddharth Rout]

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

[Nightwalker83]

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.

[Siddharth Rout]

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

Phew!!! Finally

[Justa Lol]

i cant see the code.

[Siddharth Rout]

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...