指定した範囲をPDF出力して保存する【VBAマクロ】

選択した範囲をPDF出力したい

Excelで、特定の範囲をPDFファイルに出力したいケースがあります。

下記のようにActiveSheetや、すべてのシートをPDF保存するケースだけではなく、
シートの作成上、一部分だけ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]

注意点

• 個人用マクロブックでご紹介していますが、アドイン化も一つの手です。
• 保存先のファイルが既に存在してた場合は、強制的に上書きします。

関連記事

• 指定した範囲をxlsx出力して保存する
• 指定した範囲をCSV出力して保存する
• 指定した範囲をタブ区切り(TSV)テキスト出力して保存する
• 【VBA一覧】「名前を付けて保存」「ファイルを保存する」に使う拡張子[XlFileFormat 列挙体]