Film abspielen
28.06.2003 16:08:32
Claus
Ich mache gerade eine Präsentation für Montag und möchte per Druck auf einen Button, der auf dem Tabellenblatt angebracht ist, einen Film starten.
- Der Film liegt auf einem Pfad (z.B. c:/Film/präsentation.avi)
- Der Film soll entsprechend der Bildschirmgröße maxiemiert gestartet werden.
- Bei rechts-click soll er enden (nicht anhalten, sondern der Player soll beendet werden)
Mein bisheriger entwurf ist nicht sehr gut. Kann jemand bitte helfen?
Private Sub CommandButton1_Click()
ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject(FileName:="C:/Film/präsentation.avi", Left:=240#, Top:=180#).Select
With ActiveWindow.Selection.ShapeRange
.IncrementLeft -240#
.IncrementTop -180#
End With
With ActiveWindow.Selection.ShapeRange
.ScaleWidth 3#, msoFalse, msoScaleFromTopLeft
.ScaleHeight 3#, msoFalse, msoScaleFromTopLeft
End With
End Sub