Save current slide only, no embedded fonts

[juanbolas]

Hi all,

Me again. I wrote the following routine to save the current slide individually. When I used the export method it worked but it embedded the fonts so I went this route.

However it's giving me an error in the core line:

ActivePresentation.SaveAs FileName:=tFilename, _
        FileFormat:=ppSaveAsPresentation, EmbedTrueTypeFonts:=msoFalse

The code follows.

Thanks in advance for your help!

Sub SaveCurrentSlide() 
    CurrentSlide = ActiveWindow.View.Slide.SlideIndex
    MsgBox "The slide index of the current slide is:" & CurrentSlide
    On Error GoTo errorhandler
    if ActiveWindow.ViewType = ppViewNormal Then ActiveWindow.Panes(1).Activate
    With ActivePresentation
        ' Build a unique filename and save a coy of the now single-slide presentation
        tPath = .Path
        tFilename = tPath & Left(.Name, InStrRev(.Name, ".") - 1) & " [slide " & CurrentSlide & "].pptx"
        ActivePresentation.SaveAs FileName:=tFilename, _
        FileFormat:=ppSaveAsPresentation, EmbedTrueTypeFonts:=msoFalse
    End With
    ' Give feedback to the user
    MsgBox "Current slide exported to:" & tPath & tFilename, vbQuestion, vbOKOnly, "Export Current Slide - Export Complete"    
    On Error GoTo 0
    Exit Sub 
    errorhandler:
    Debug.Print Err, Err.Description
    Resume Next
End Sub