convert ppt to pdf using vba

Sub ppttopdf(control As IRibbonControl)
Dim lngFirst As Long
Dim lngSecond As Long
Dim strPath As String
Dim ipos As Integer
If ActivePresentation.path = "" Then
MsgBox "Save me first"
Exit Sub
End If


strPath = "D:\macro" & ActivePresentation.Name & ".pdf"



ActivePresentation.ExportAsFixedFormat path:=strPath, FixedFormatType:=ppFixedFormatTypePDF
MsgBox "saved......"
End Sub