Excel VBA - maîtriser taille affichage WindowsMediaPlayer ds UF
TonyLucky
-
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
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
- Comment réduire la taille d'un fichier - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
3 réponses
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 !
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 !
Bonjour,
Je pense que c'est ton UserForm qu'il faut redimensionner comme ceci:
pour plus d'info voir ceci:
https://silkyroad.developpez.com/VBA/WindowsMediaPlayer/
@+ Le Pivert
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
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...
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...
