rogner une video avec VLC en VBA

Bonjour,

J'ai un formulaire comportant un contrôle active X VLC pour jouer de vidéo.
Mon formulaire ayant une dimension spécial, les vidéos 16/9 ont des bandes en haut et en bas, mais aussi sur les côtés.
La solution est de rogner la vidéo en haut et en bas afin qu'elle prenne toute la largeur du formulaire (ou toute la largeur du contrôle) ce qui fonctionne bien avec les filtres disponible dans VLC (2.1.3)

A priori, l'option pour rognerest croptop ou cropbottom

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Form_Load() Dim videoPath As String 'Dim cropOptions As String   Me.VLCPlayer.playlist.Add "file:///D:\Bases\BandesAnnonces\AlienCovenant.mp4", Nothing, ":croptop=250 :cropbottom=250" Me.VLCPlayer.playlist.play     ErrorHandler: MsgBox "Erreur : " & Err.Number & " - " & Err.Description, vbCritical, "Erreur VLC" End Sub

---

J'ai une erreur : 0-

j'ai donc lancer la commande dos suivante :

Code:

---

--croptop=50 D:\Bases\BandesAnnonces\AlienCovenant.mp4

---

voici son retour
Le lecteur multimédia VLC n'a pas pu démarrer. Soit les options de ligne de commande n'étaient pas valides, soit aucun plugin n'a été trouvé.

que puis-je faire pour renseigner les bonnes options et comment ?

Merci

Je n'ai pas encore adapté le code à mon application mais voici le code complet qui permet de rogner une vidéo VLC

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim vlcObject As Object Set vlcObject = Me.VLCPlayer.Object   ' Chemin du fichier vidéo au format URI Dim videoPath As String videoPath = "file:///D:/Bases/Bandesannonce/Alien.mp4"   ' Ajouter le fichier à la playlist de VLC avec les options vlcObject.video.crop = "1920:990" vlcObject.playlist.Add videoPath, Null   ' Démarrer la lecture vlcObject.playlist.play   If Err.Number <> 0 Then MsgBox "Erreur : " & Err.Number & " - " & Err.Description End If

---