Hallo,
also ich habe das mit dem Add-In an sich jetzt raus.
Folgendes Makro teste ich gerade:
Public CurrentFolder As String
Public FileName As String
Public myPath As String
Public UniqueName As Boolean
Sub Auto_Close()
MsgBox "test"
'Store Information About PowerPoint File
myPath = ActivePresentation.FullName
CurrentFolder = ActivePresentation.Path & "\"
FileName = Mid(myPath, InStrRev(myPath, "\") + 1, _
InStrRev(myPath, ".") - InStrRev(myPath, "\") - 1)
MsgBox FileName
MsgBox myPath
MsgBox CurrentFolder
MsgBox "test" & myPath
ActivePresentation.ExportAsFixedFormat CurrentFolder & FileName & ".pdf", _
ppFixedFormatTypePDF, ppFixedFormatIntentPrint, msoCTrue, ppPrintHandoutHorizontalFirst, _
ppPrintOutputSlides, msoFalse, , ppPrintAll, , False, False, False, False, False
MsgBox "ok"
End Sub
Warum bekomme ich nur die aller erste Messagebox angezeigt? Der Rest funktioniert nur beim Test in der PPTM-Datei. Bin echt ratlos....Wäre super, wenn mir jemand helfen könnte.
DAnke schon mal im Voraus
Steffen
|