Redimensionner WMP

Bonjour à tous,

En PJ: voilà comment, de fils en aiguilles, on obtient ce résultat.

WMP est créé directement sur la feuille.

Attention! Modifier le chemin du fichier.

Private Sub Workbook_Open()
If Feuil1.WindowsMediaPlayer1 Is Nothing Then Exit Sub
Feuil1.WindowsMediaPlayer1.Controls.pause
Feuil1.WindowsMediaPlayer1.Width = 230
Feuil1.WindowsMediaPlayer1.Height = 150
Feuil1.WindowsMediaPlayer1.Controls.stop
End Sub

Je n'ai pas ajouter Top et Left, c'est plus rapide manuellement!

A bientôt