VBAを使用してPPTに現在のスライドをPDFとして保存します。

Question

VBAを初めて使用しています。新しいコードを保存しようとするたびに、以前に保存したPDFを上書きします。私が望むのは、エクスポートされたPDFのファイル名を（上書きを避けるために）ランダムに生成する必要があるということです。それを行うことができるVBAコードはありますか？

は参考のため、ここでは非常に高く評価され、私は

---

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 

すべてのヘルプを使用しているコードです。

Answer 1

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

あなたはそれを二

回以上行わない場合、これはそれを行う必要があります