Windows Media Playerのサイズvbaユーザーフォーム

Question

WMPがVBAユーザーフォームで実行されている場合、プログラムサイズでWidthとHeightのプロパティが設定されていても、クリップサイズと解像度に基づいて自動的にサイズが変更されます。固定サイズのビデオが必要です。次のコードは何もしません：

With UserForm1.WindowsMediaPlayer1 
    .URL = "C:\AnyVideo.mp4" 
    .Controls.Play 
    .stretchToFit = True 
    .Width = 500 
    .Height = 300 
    .Top = 0 
    .Left = 0 
End With 

次のコードは、作業を行いますが、先頭にびくびくビデオを作る - 独自のサイズで再生を開始し、その後、新しいサイズではなく、プロフェッショナルな外観にジャンプします。

With UserForm1.WindowsMediaPlayer1 
    .URL = "C:\AnyVideo.mp4" 
    .Controls.Play 
End With 

Timer_1 = Timer + 1 

Do While Timer < Timer_1 
    DoEvents 
Loop 

With UserForm1.WindowsMediaPlayer1 
    .stretchToFit = True 
    .Width = 600 
    .Height = 300 
    .Top = 0 
    .Left = 0 
End With 

私は見て回って、何が起こっているのか解明することができませんでした。誰でも助けることができますか？

Answer 1

WindowsMediaPlayer1コントロールをクリックし、カスタムプロパティを選択します。 「Windows Media Playerのプロパティ」ウィンドウが表示されます。 「自動開始」オプションのチェックを外します。これはこの問題を解決するはずです。

これで十分です。他のオプションを設定する必要はありません。ちらつきやぶれがないようにします。

デザインモード自体で必要なサイズに基づいてWindowsMediaPlayer1コントロールのサイズを変更できるようになりました。それでも必要な場合は、同様のコードでも同じことができます。上記のオプションのチェックを外すと、期待どおりに動作するはずです。