⚡
CreatePDFExport
自動化アクティブシートをPDFとしてエクスポートします
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： CreatePDFExport を実行すると、現在のシートがPDFとして保存されます
💻 VBAコード
' CreatePDFExport
' -----------------
' Macro Name: CreatePDFExport
' Description: アクティブシートをPDFとしてエクスポートします
' Parameters: なし
' Returns: なし
' Usage: CreatePDFExport を実行すると、現在のシートがPDFとして保存されます
' -----------------
Sub CreatePDFExport()
On Error GoTo ErrorHandler
Dim ws As Worksheet
Dim pdfPath As String
Dim fileName As String
Set ws = ActiveSheet
' PDFファイル名の作成
fileName = Left(ws.Name, InStrRev(ws.Name, ".") - 1)
If fileName = ws.Name Then fileName = ws.Name
pdfPath = ws.Parent.Path & "\" & fileName & ".pdf"
' PDFとしてエクスポート
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard
MsgBox "PDFを作成しました:" & vbCrLf & pdfPath, vbInformation, "PDF作成完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub