BrightSign



Makro HD P1080

Im Powerpoint Alt und F11 drücken.

bei Einfügen das Modul wählen.

Code unten einfügen. und schlissen

 

Bei Powerpoint auf Ansicht dann auf Makros und Ausführen.

Das Video ist dann auf dem Desktop gespeichert.

 


 

Sub MkVideo()

Dim videoName As String

videoName = InputBox("Enter the name of your video :", "VIDEO RENAME", "New video")

If videoName = vbNullString Then videoName = ("New video")

If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then

ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\" & videoName & ".wmv", _

UseTimingsAndNarrations:=True, _

VertResolution:=1080, _

FramesPerSecond:=25, _

Quality:=100

Else: MsgBox "There is another conversion to video in progress"

End If

End Sub