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と同じ階
rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPath & fName & ".pdf"
Application.DisplayAlerts = True
End Sub
結果は成功。
いつも会社で選択範囲のみをPDFファイルにして保存するという操作をよくやっていて、固まったりして面倒なのでマクロにしたいと思っていて、ChatGPTに質問したらダメだった。数ヶ月経ってCopilotのアドオンを見て試してみようかなと思ってやってみたら、一発で成功。