seleção salvar como
Enviado: 21 Mar 2017 às 23:15
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
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