Excel VBA Macro to start a local video (WMP) within worksheet using a shortcut

I am a novice to Excel VBA code but this is what I've learned / done so far. The code below is a module initiated in Excel by a key shortcut. Ctrl Shift T. It runs the video within the worksheet as required, but with a small screen. I'd like to add to the code to launch the video full screen and when finished close the Windows Media Player and return to the same point in the worksheet. I wonder if anyone knows how to do this please?


Sub Title_Vid1()
Dim WMP As Object

Set WMP = CreateObject("new:{6BF52A52-394A-11d3-B153-00C04F79FAA6}")

WMP.openPlayer "C:\Users\User1\Teenage_Dream.mp4"


End Sub

Thank you. Yes I'd read that page but once you set the Properties to fullscreen and play the video, it resets to Fullscreen False!

Yes, but do not wish to have to reset the properties every play.

Thank you, I think we were talking at cross purposes. I have got the Fullscreen code working now BUT, after the video ends, the WMP stays on the screen! Can I hide close or minimise it within the VBA?
Here is my latest code:

Sub Play_Title_Vid()
'
'
' Keyboard Shortcut: Ctrl+Shift+T
'


Title_Vid = """C:\Users\User1\1-Active\0-General\3-Leisure\Quizes\Quiz_Master\Videos\Test01.mp4"""

Shell "C:\Program Files\Windows Media Player\wmplayer /fullscreen /new /play /close " & Title_Vid

End Sub

Hi Trevor, thank you so much for your help. That website is the best I've seen so far.