選択した範囲をPDF出力したい
Excelで、特定の範囲をPDFファイルに出力したいケースがあります。
下記のようにActiveSheetや、すべてのシートをPDF保存するケースだけではなく、
シートの作成上、一部分だけPDF保存させたいケースもあるかと思います。
範囲選択した部分(Range)をPDFファイルとして出力するマクロは以下です。
選択した範囲のPDF保存するサンプルコード
'■現在選択しているセル範囲を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 [/vbnet]
注意点
- 個人用マクロブックでご紹介していますが、アドイン化も一つの手です。
- 保存先のファイルが既に存在してた場合は、強制的に上書きします。
コメント