VBAにてPDF形式で保存する

VBAを利用してExcelのシートをPDF形式で保存する処理は下記のようになります。下記ではファイル保存ダイアログを呼び出してますが、別名でファイル保存を使ってファイル形式を指定させる手間が省けます。

	'ファイルダイアログを開く
	fileName = Application.GetSaveAsFilename("default.pdf", "PDFファイル(*.pdf),*.pdf", 1, "保存")
	If fileName <> "" Then
	' PDFに変換する
	ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, fileName:=fileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False, From:=1, To:=1
	End If

view raw PDFSave.vba hosted with ❤ by GitHub