Hi,
I created a PowerPoint add-in with the code below and this was working well for months. For some reason (perhaps a Windows/Office update?) this no longer works. When I step through the code, it loops at "Exit Sub" back to the beginning. Can anyone suggest what might have broken?
Sub SaveAsPDF()
If ActivePresentation.Saved = msoFalse Then _
MsgBox "Please save your Presentation first"
Exit Sub
Dim FinalFileName As String
FinalFileName = Left(ActivePresentation.Name, _
(InStrRev(ActivePresentation.Name, ".", -1)))
ActivePresentation.ExportAsFixedFormat ActivePresentation.Path _
& "\" & FinalFileName _
& "pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint, , , , , , , , , , _
DocStructureTags:=False
MsgBox "Document saved to " & ActivePresentation.Path _
& "\" & FinalFileName & "pdf"
End Sub
Thanks in advance
miyo