papuapu
06-07-2021, 05:30 AM
Sir,
I want to give title name when save the powerpoint presentation in wmv format. I found the code in web to save the video in wmv format but now I want to give title name to that video. I run the following code but not working & saving all video as myVideo.wmv.
Sub PowerPointVideo()
Dim myVideo As String
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
myVideo = InputBox("Please enter title name ", "Add Title ")
If myVideo = "" Then
MsgBox "You enter nothing Operation Aborted!"
Exit Sub
End If
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\myVideo.wmv", _
UseTimingsAndNarrations:=True, _
VertResolution:=1080, _
FramesPerSecond:=30, _
Quality:=100
Else: MsgBox "There is another conversion to video in progress"
End If
End Sub
I want to give title name when save the powerpoint presentation in wmv format. I found the code in web to save the video in wmv format but now I want to give title name to that video. I run the following code but not working & saving all video as myVideo.wmv.
Sub PowerPointVideo()
Dim myVideo As String
If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then
myVideo = InputBox("Please enter title name ", "Add Title ")
If myVideo = "" Then
MsgBox "You enter nothing Operation Aborted!"
Exit Sub
End If
ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\myVideo.wmv", _
UseTimingsAndNarrations:=True, _
VertResolution:=1080, _
FramesPerSecond:=30, _
Quality:=100
Else: MsgBox "There is another conversion to video in progress"
End If
End Sub