Aktuelle Folie in PPT als PDF speichern mit VBA

Question

Ich bin neu in VBA, und der Code, den ich verwende, überschreibt die zuvor gespeicherte PDF jedes Mal, wenn ich versuche, eine neue zu speichern. Ich möchte, dass der Dateiname der exportierten PDF-Datei zufällig generiert wird (um ein Überschreiben zu vermeiden). Gibt es VBA-Codes, die das können?

Als Referenz ist hier der Code, den ich

---

Sub PDF() 
Dim PR As PrintRange 
Dim lngLast As Long 
Dim savePath As String 
savePath = Environ("USERPROFILE") & "\Desktop\Transaction.pdf" 
lngLast = ActivePresentation.Slides.Count 
With ActivePresentation.PrintOptions 
    .Ranges.ClearAll ' always do this 
    Set PR = .Ranges.Add(Start:=lngLast, End:=lngLast) 
End With 
ActivePresentation.ExportAsFixedFormat _ 
Path:=savePath, _ 
FixedFormatType:=ppFixedFormatTypePDF, _ 
PrintRange:=PR, _ 
Intent:=ppFixedFormatIntentScreen, _ 
FrameSlides:=msoTrue, _ 
RangeType:=ppPrintCurrent 
End Sub 

Jede Hilfe bin mit wird sehr geschätzt.

Answer 1

savePath = Environ("USERPROFILE") & "\Desktop\Transaction" & DateDiff("s", "01/01/1970 00:00:00", Now()) & ".pdf" 

Dies sollte es tun, wenn Sie es nicht tun mehr als einmal pro Sekunde