【コピペでOK】ダイアログからPDF形式で保存する方法を解説！【Excel VBA】

こんにちは！『ルウちゃんのExcel Labo』管理人の＠rouxchanblogです！

今回はこのような悩みについて解説します。

ルウちゃん

ダイアログボックスからファイルを選択してPDF形式で保存したい！
どうすればいいの？

サンプルコードの紹介

まずはサンプルコードを使って動かしてみましょう！

    Filepath = Application.GetOpenFilename()  '選択されたファイルパスを取得
    Workbooks.Open Filepath '取得したファイルバスを指定してブックを開く
    
        With ActiveSheet.PageSetup '印刷設定の変更
            .Zoom = False 'ページ設定を変更する時は「False」にする必要がある
            .FitToPagesWide = 1 '横を1ページに収める
            .FitToPagesTall = 1 '縦を1ページに収める
        End With
        
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Filepath  '選択したシートをPDF出力
    ActiveWorkbook.Close SaveChanges:=False '保存せずに閉じる

このようにダイアログから選択したファイルをPDF形式で保存できましたね！

それではダイアログボックスの使い方から解説していきます！

ダイアログからファイルパスを取得する方法

    Filepath = Application.GetOpenFilename()  '選択されたファイルパスを取得

VBAでダイアログボックスを使う時は「GetOpenFilename」メソッドを使いましょう！

このメソッドを使うことでダイアログから選択されたファイルのファイルパスを取得できます。

オブジェクトはApplicationオブジェクトにしましょう。

引数は指定せずに使っても特に問題ありません。

引数を指定することで以下の表のような設定をすることができます！

次はPDF形式で保存する方法を解説します。

ファイルのPDF形式で保存

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=Filepath'選択したシートをPDF出力

PDF形式で保存するには「ExportAsFixedFormat」メソッドを使いましょう！

このメソッドを使うとPDFまたはXPS形式で保存することができます。

完全に呪文ですね。引数については必ずしも全て指定する必要はありません！

式には「Workbookオブジェクト」や「Sheetsコレクション」をオブジェクトとして指定してください。

今回のサンプルコードでは「ActiveSheet」にしました。

「ActiveSheet」で指定する時は事前にOpenメソッドでファイルを開いておく必要があります。

次に引数ですが、サンプルコードでは「Type」と「FileName」の2つだけを指定しました。

「Type」を「Type:=xlTypePDF」を記述することでPDF形式にすることができます。

「FileName」は名前の通り保存するファイルの名前を指定できます。

今回使ったサンプルコードでは「FileName:=Filepath」と記述し、選択してきたファイル名をそのまま使っています。

その他の引数については下記の表を参考にしてください！

XlFixedFormatType列挙は以下の表を参考にしてください！

最低限知っておきたい設定方法

        With ActiveSheet.PageSetup '印刷設定の変更
            .Zoom = False 'ページ設定を変更する時は「False」にする必要がある
            .FitToPagesWide = 1 '横を1ページに収める
            .FitToPagesTall = 1 '縦を1ページに収める
        End With

最後に印刷設定をVBAで変更する方法を解説します。

ページ設定は「PageSetupオブジェクト」のプロパティを設定することで変更できます。

今回は1ページに収めたかったので「FitToPagesWide = 1」としています。

同様に縦も1ページに収めたかったので「FitToPagesTall = 1」としました。

この時に注意することが1つあります。ページの倍率を変化させる時は、「Zoom = False」を記述してください！

これを記述しないと、いくら変更しても反映されません！

その他のプロパティは下記の表を見て、必要に応じて指定してください！

まとめ

今回はダイアログから選択したファイルをPDF形式で保存する方法を解説しました！

ダイアログからファイルを読み込む処理は実務に取り入れやすいと思いますのでぜひ使ってみてください！

このような実務で使えるコードがほかにも知りたいという方にはこの本をおすすめします！

ExcelVBAを実務で使い倒す技術 [ 高橋宣成 ]

created by Rinker

• Amazon
• 楽天市場
• Yahooショッピング

最速で実務的なコードを書くことを目指している方にはぜひ手にとってほしい1冊です！

実務の現場で使い倒しましょう！

この記事で少しでも皆さんのお役に立てれば幸いです！

忘れないうちにお気に入り登録もお願いします！

ありがとうございました！