現在選択しているセル範囲をPDFデータで保存するマクロ

PDFビューワにCopilotのアドオンがついていたので、試してみた。

'■現在選択しているセル範囲をPDFデータで保存する

Public Sub call_RangeSavePDF()

Dim fPath As String

Dim fName As String

Dim rng As Range

'■現在開いているブック情報をファイル名にするため、変数に格納

fPath = ActiveWorkbook.Path & "\"

fName = Left(ActiveSheet.Name, InStrRev(ActiveWorkbook.Name, "."))

Application.DisplayAlerts = False

'■現在選択しているセル情報をrngに格納

Set rng = Selection

'■PDF出力(ActiveWorkBookと同じ階層にPDF保存)

rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPath & fName & ".pdf"

Application.DisplayAlerts = True

End Sub

結果は成功。

いつも会社で選択範囲のみをPDFファイルにして保存するという操作をよくやっていて、固まったりして面倒なのでマクロにしたいと思っていて、ChatGPTに質問したらダメだった。数ヶ月経ってCopilotのアドオンを見て試してみようかなと思ってやってみたら、一発で成功。