エクセルマクロで、名前を付けて保存時に拡張子をPDFに設定するVBAコードをご紹介します。
このページのマクロコードは、コピペで使えます。
ぜひお試しください!
名前を付けて保存時に拡張子をPDFに設定
以下のマクロを実行すると、
名前を付けて保存ダイヤログを表示し、拡張子をpdfに設定します。
Sub 名前を付けて保存で拡張子に設定()
Dim FileName As String
Dim FindPos As Long
Dim Done As Variant
'拡張子を除くファイル名を取得
FindPos = InStrRev(ActiveWorkbook.Name, ".")
FileName = Left(ActiveWorkbook.Name, FindPos - 1)
Done = IIf(Application.Dialogs(xlDialogSaveAs). _
Show(Arg1:=ThisWorkbook.Path & "\" & FileName & ".pdf", Arg2:=57), _
"保存", "キャンセル")
If Done = "キャンセル" Then
'「キャンセル」を選択したときの動作を入力する
Else
'「保存」を選択したときの動作を入力する
End If
End Sub
マクロ実行後
「ファイル名」の拡張子と「ファイルの種類」の両方が、PDFに設定されます。
PDFファイルの保存先を任意の場所に指定することができます。
この記事がお役に立ちますと幸いです。

【エクセルマクロ】名前を付けて保存時に拡張子をCSVに設定する
...