Sabtu, 04 Februari 2017

Script untuk mengubah file powerpoint ke video

If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\test.wmv", _
UseTimingsAndNarrations:=True, _
VertResolution:=1080, _
FramesPerSecond:=60, _
Quality:=95
Else: MsgBox "There is another conversion to video in progress"
End If





^  Jalankan script tersebut dengan macro di powerpoint :D

Minggu, 18 Desember 2016

Minggu, 14 Agustus 2016

Sabtu, 30 Juli 2016

Kamis, 28 Juli 2016

Rabu, 27 Juli 2016