この記事では、Excel VBAを使用してグラフや図表を含むエクセルシートをPDFとして保存する方法を詳しく解説します。初心者から中級者までの方向けに具体的なコード例とその詳細な解説、そして応用例を3つ以上含めています。
基本のコード:エクセルシートをPDFで保存
エクセルシートをPDFとして保存するための基本的なVBAコードは以下のとおりです。
Sub SaveAsPDF()
ThisWorkbook.Sheets("Sheet1").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\path\to\your\desired\location\FileName.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
コードの詳細解説
– `ThisWorkbook.Sheets(“Sheet1”)` : この部分では、保存したいエクセルのシート名を指定しています。例では”Sheet1″というシートを指定していますが、適宜変更してください。
– `ExportAsFixedFormat` : このメソッドは、シートをPDFやXPS形式で保存するためのメソッドです。
– `Type:=xlTypePDF` : 保存の形式をPDFとして指定しています。
– `Filename` : PDFとして保存する際のファイルのパスを指定します。
– `Quality:=xlQualityStandard` : PDFの品質を標準品質として指定しています。
– `IncludeDocProperties` : ドキュメントのプロパティをPDFに含めるかどうかを指定します。
– `IgnorePrintAreas` : 印刷エリアを無視するかどうかを指定します。Falseの場合、印刷エリアのみをPDFに保存します。
– `OpenAfterPublish` : PDFを保存後、自動的に開くかどうかを指定します。
応用例
応用例1: 複数のシートを一つのPDFに保存
特定の複数のシートを一つのPDFファイルにまとめて保存する方法です。
Sub SaveMultipleSheetsAsPDF()
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\path\to\your\desired\location\FileName.pdf", _
Quality:=xlQualityStandard
End Sub
応用例2: シート内の特定の範囲をPDFに保存
シート内の特定の範囲のみをPDFとして保存する方法です。
Sub SaveRangeAsPDF()
ThisWorkbook.Sheets("Sheet1").Range("A1:E10").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\path\to\your\desired\location\FileName.pdf", _
Quality:=xlQualityStandard
End Sub
応用例3: グラフだけをPDFに保存
シート内の特定のグラフのみをPDFとして保存する方法です。
Sub SaveChartAsPDF()
ThisWorkbook.Sheets("Sheet1").ChartObjects("Chart 1").Chart.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="C:\path\to\your\desired\location\FileName.pdf", _
Quality:=xlQualityStandard
End Sub
まとめ
Excel VBAを使用することで、エクセルのシートやその中の特定の範囲、グラフなどを効率的にPDFとして保存することが可能です。上記の基本的なコードや応用例を参考に、実際の業務や日常でのエクセル操作をよりスムーズに行ってください。
コメント