Media Player versus Windows Media Player

"michelxld" <michelxld.1wvu6d_1129277112.9861@excelforum-nospam.com> wrote
in message news:michelxld.1wvu6d_1129277112.9861@excelforum-nospam.com...
>
> Hello
>
> try this macro
>
> WindowsMediaPlayer1.currentMedia.duration
>
> or
>
> Dim ValMin As Double, ValSec As Double, S As Double
> S = WindowsMediaPlayer1.currentMedia.duration
> ValMin = Application.WorksheetFunction.RoundDown((S / 60), 0)
> ValSec = Application.WorksheetFunction.RoundDown(S, 0) - (ValMin * 60)
> MsgBox Format(ValMin, "00") & ":" & Format(ValSec, "00")

Thank you. I will try it and let you know how it went

tp

Thanks. That also worked.

Last one...

Private Sub MP_PositionChange(ByVal oldPosition As Double, ByVal newPosition
As Double)
Application.Cells(1, 1) = newPosition
End Sub

Needs to go to WindowsMediaPlayer. And need to reference worksheet sheet
'results' rather than the same sheet.

Any idea?