Using Windows Media Player Control

[MM91]

Hello I am trying to use the activex windows media player control "IntroVideo" on workhsheet "Standards" but I keep getting "method or data member not found" I have verified all the names are corroct. Does anyone have any ideas?

Option Explicit
Dim ws As Worksheet
Dim wb As Workbook

Private Sub Workbook_Open()


'MsgBox "Welcome"
Set wb = ActiveWorkbook
Set ws = wb.Worksheets("Standards")


With ws.Introvideo 'Windowsmediaplayercontrol
.StartUpPosition = 0
.Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
.Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
.Show
.Play
End With


End Sub

 

[Dan_W]

On what line does the code break and that error message appear?
Your code reads like it should be on a Userform and not on the worksheet because ".StartupPosition" is not a method or a data member of the WMP control. And you wouldn't position a control on a worksheet by reference to the Application object. And now that I think of it, I don't think that .Show is a method of the WMP Control either.

 

[MM91]

On what line does the code break and that error message appear?
Your code reads like it should be on a Userform and not on the worksheet because ".StartupPosition" is not a method or a data member of the WMP control. And you wouldn't position a control on a worksheet by reference to the Application object. And now that I think of it, I don't think that .Show is a method of the WMP Control either.

Ah thank I moved it into my userform and modified it slightly getting of .startupposition and .show instead referenced .left and .top and visible and it worked

 

[Dan_W]

Fantastic! I got the notification to say you had marked as the solution, I'm thinking "But I didn't offer a solution..."
I guess I accidentally did - thank you very much! TBH I didn't think you could run the WMP control in the worksheet anymore, and that it had been deprecated like the webbrowser control had. I had just been trying it out now. Thanks for the tip!!