CyberChaos(さいばかおす)

プログラミング言語、トランスパイラ、RPA、ChatGPT、データマイニング、リバースエンジニアリングのための忘備録

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

2023-11-28 19:40:25 | VBA
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