bonjour,
j'ai récupéré cette routine ( sur le site d’ailleurs, merci)
elle ajoute un player sur la diapo.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Sub Add_player() Dim osld As Slide Dim oplayer As Shape Set osld = ActivePresentation.Slides(16) Set oplayer = osld.Shapes.AddOLEObject( _ Left:=10, _ Top:=10, _ Width:=240, _ Height:=160, _ ClassName:="WMPlayer.OCX.7") With oplayer.OLEFormat.Object .URL = "D:\ecrits\IME\video\Couper un tasseau d'équerre _ vidéo Menuiserie.flv" .fullScreen = False .windowlessVideo = True End With End Sub
le player ne s'affiche et se lance qu’après un relancement du diaporama ?
qu'est ce qui cloche ?
merci de votre aide.
Partager