VBA WindowsMediaPlayer控件打开的视频画面大小不全

请问大佬，我用这个控件打开一个手机上录取的视频时，无法显示出全部的画面出来，

怎么解决

Private Sub UserForm_Initialize()
    Dim intWidth As Integer
    Dim intHeight As Integer

    Me.WindowsMediaPlayer1.URL = ThisWorkbook.Path & "\vedio1.mov"
    intWidth = Me.WindowsMediaPlayer1.currentMedia.imageSourceWidth
    intHeight = Me.WindowsMediaPlayer1.currentMedia.imageSourceHeight
    Me.WindowsMediaPlayer1.Width = intWidth + 3
    Me.WindowsMediaPlayer1.Height = intHeight + 3
    Me.WindowsMediaPlayer1.Controls.Play
 
End Sub

 

上面是用其他播放器打开的，全画面

 

上面是我用VBA播放器打开的，左边有一段画面无法显示出来