Excel VBA Macro to start a local video in fullscreen mode 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