Este fórum está sendo desativado

[Super385011]

Boa Noite

como faço para já deixar neste código, já selecionado o formato PDF e local de salvamento Desktop neste código

Option Explicit

Sub ExibeCaixaDialogo()
Dim CaixaDialogo As FileDialog
Set CaixaDialogo = Application.FileDialog(msoFileDialogSaveAs)
With CaixaDialogo
.Show
.Execute
End With

End Sub