Excel VBA - maîtriser taille affichage WindowsMediaPlayer ds UF

Fermé

TonyLucky - 18 mars 2017 à 09:30
TonyLucky - 19 mars 2017 à 12:06

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:

Excel VBA - maîtriser taille affichage WindowsMediaPlayer ds UF
Liste déroulante excel - Guide
Comment réduire la taille d'un fichier - Guide
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide

3 réponses

Réponse 1 / 3

TonyLucky
18 mars 2017 à 11:45

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 !

Réponse 2 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié par cs_Le Pivert le 18/03/2017 à 11:56

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

Réponse 3 / 3

TonyLucky
19 mars 2017 à 12:06

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...

Discussions similaires

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

W32 L32: correspondance entre taille US et taille française

Discussions similaires

Newsletters