save ppt as pdf using VBA code

See more:

VBA

Here i am trying to save ppt to pdf.This is the code i have tried.But i am getting error like "no pdf converter installed".But i have installed pdf in my system.please solve this problem.

Sub ppttopdf(control As IRibbonControl)
Dim path As String
    path = "D:\power"

   Save_PowerPoint_Slide_as_Images path

   
MsgBox "Exported into D:\power"

End Sub
Sub Save_PowerPoint_Slide_as_Images(path As String)
    Dim sImagePath As String
    Dim sImageName As String
    Dim sPrefix As String
    Dim oSlide As Slide '* Slide Object
    Dim lScaleWidth As Long '* Scale Width
    Dim lScaleHeight As Long '* Scale Height
    On Error GoTo Err_ImageSave

    sImagePath = path
    sPrefix = Split(ActivePresentation.Name, ".")(0)
    For Each oSlide In ActivePresentation.Slides
    sImageName = sPrefix & "-" & oSlide.SlideIndex & ".pdf"
    oSlide.Export sImagePath & "\" & sImageName, "PDF"
    Next oSlide

Err_ImageSave:
    If Err <> 0 Then
    MsgBox Err.Description
    End If
        
End Sub