Sub MkVideo()

Dim slideNumber As Single
slideNumber = InputBox("Select the slide number you will convert to a video file :", "SELECT SLIDE", 1)
If slideNumber = vbNullSingle Then slideNumber = 1
ActivePresentation.Slides(1).Select

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:=videoName, _
UseTimingsAndNarrations:=True, _
VertResolution:=1080, _
FramesPerSecond:=27, _
Quality:=100
Else: MsgBox "There is another conversion to video in progress"
End If
End Sub