I want to get media player to jump back 5 seconds with a VBA macro

I tried

Dim lastpos As Long
MP.CurrentPosition = lastpos - 5

but that didn't work. It just says:

run time error 380

currentposition must be -1.0 or greater than or equal to 0.0

Anyone know how it might be done?

Not a media player expert, but I would guess from the code you have given,
lastpos = 0. Therefore you are trying to set CurrentPosition = -5, which, as
the error message states, is invalid.
So you have to set the value of lastpos somewhere and check its value

lastpos=MP.<SomeProperty>
'code....
Const REWIND_SECONDS as long=5
if lastpos>REWIND_SECONDS then
MP.CurrentPosition = lastpos - REWIND_SECONDS
else
MP.CurrentPosition = 0
end if

Not sure what a CurrentPosition = -1 means, but check the docs.

NickHK

"teepee" <(E-Mail Removed)> wrote in message
news:461e1377$(E-Mail Removed)...
> I want to get media player to jump back 5 seconds with a VBA macro
>
> I tried
>
> Dim lastpos As Long
> MP.CurrentPosition = lastpos - 5
>
> but that didn't work. It just says:
>
> run time error 380
>
> currentposition must be -1.0 or greater than or equal to 0.0
>
> Anyone know how it might be done?
>
>

"NickHK" <(E-Mail Removed)> wrote

Not a media player expert, but I would guess from the code you have given,
lastpos = 0. Therefore you are trying to set CurrentPosition = -5, which, as
the error message states, is invalid.

Thanks - will try that

"NickHK" <(E-Mail Removed)> wrote

Const REWIND_SECONDS as long=5
if lastpos>REWIND_SECONDS then
MP.CurrentPosition = lastpos - REWIND_SECONDS
else
MP.CurrentPosition = 0
end if

That worked. Thanks v much