Excel VBA - maîtriser taille affichage WindowsMediaPlayer ds UF

TonyLucky -  
 TonyLucky -
Bonjour à tous,

Je suis sous Windows 10 et je souhaite intégrer une vidéo dans un UF sous Excel. J'ai chargé un contrôle windowsmediaplayer. Cela fonctionne bien. Mon souci est que la fenêtre vidéo se dimensionne automatiquement et prend, du coup, trop de place dans mon UF. J'ai supprimé la partie commande de WMP, mais ce gain de place n'est pas suffisant.
J'ai cherché différentes solutions sur le web, sans succès. J'ai essayé autosize = false, mais cette propriété ne s'applique pas à ce contrôle.
Y-a-t-il un moyen de maîtriser la taille d'affichage ?
Voici mon code :

Private Sub A_Play_Click()

Nom_Photo = "Casting Léon"
Chemin_Photo = ActiveWorkbook.Path & "\Outils communs\Videos\" & Nom_Photo & ".mp4"

Me.WindowsMediaPlayer1.stretchToFit = False
'Texte aide VBA : This property applies to the Windows Media Player control only when embedded in a webpage. (à priori, cette fonction ne fonctionne que sur une page web)
Me.WindowsMediaPlayer1.Width = 200: Me.WindowsMediaPlayer1.Height = 125
'VBA dimensionne bien la fenêtre à cette dimension, puis passe en autosize, si je puis dire.

WindowsmediaPlayer1.Url = Chemin_Photo

End Sub

D'avance, merci pour vos suggestions ou idées,
Tony



A voir également:

3 réponses

Réponse 1 / 3
TonyLucky
 
Finalement, j'ai trouvé en testant les commandes liées à WMP.
Il suffit de rajouter la macro :

Private Sub WindowsMediaPlayer1_StatusChange()

Me.WindowsMediaPlayer1.Width = 200: Me.WindowsMediaPlayer1.Height = 175

End Sub

Et là, cela me dimensionne parfaitement ma vidéo.

Pour info, pour ne pas afficher les commandes de WMP :
Me.WindowsMediaPlayer1.uiMode = "none"


Si cela peut intéresser quelqu'un, tant mieux !
0
Réponse 2 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

Je pense que c'est ton UserForm qu'il faut redimensionner comme ceci: 

WindowsMediaPlayer1.URL = Chemin_Photo 
UserForm1.Width = WindowsMediaPlayer1.Width + 100 ' a adapter
UserForm1.Height = WindowsMediaPlayer1.Height + 100 ' a adapter


pour plus d'info voir ceci:

https://silkyroad.developpez.com/VBA/WindowsMediaPlayer/


@+ Le Pivert
0
Réponse 3 / 3
TonyLucky
 
Bonjour,

Merci pour votre réponse, mais votre solution ne s'adapte pas à mon cas car dans mon UF, WMP n'occupe pas toute la place. Il y a d'autres infos.

Cependant, si ma solution fonctionne, elle n'est pas entièrement satisfaisante car au démarrage et à la fin de la vidéo, l'image clignote deux trois fois.

Je continue de chercher...
0

Discussions similaires

À quoi correspond 32x32 US en taille française pour un jean ?
Alison1958 -
Thordendall -

1 réponse