EXCELのシートをVBAを使用して、PDFのしおりに出来るプログラムはありますか？

Forum|Forum|4 years ago
April 5, 2021
2 replies
8424 views

Adobe Acrobat Pro DCについて、

エクセルのVBA機能を利用して、「Adobe PDFとして保存」をしたいのですが

サンプルコードみたいなものは無いでしょうか？

「Adobe PDFとして保存」は、エクセルのVBAでは不可でしょうか？

もし、可の場合、ファイルの中にある2つのファイルを結合する

サンプルコードもあれば御教授頂きたくお願い致します。

もし、不可の場合、手動で「Adobe PDFとして保存」で対応する以外の方法は無いでしょうか？

PDF の編集と変換

This topic has been closed for replies.

Ten A

Community Expert

Excel経由での操作となるとOLE経由での処理になりますが、資料はほとんどありませんので機能の確認自体がトライ＆エラーで進めるしかないのが現状です。PDFの処理を考えるのであれば、Excelから一旦PDFを書き出した上でAcrobat上でJavaScriptまたはワークフローを利用したバッチ処理を通すのが楽なように思います。また、このJavaScriptで操作ができないようであればOLE経由でも操作が不可能なはずです。

-

-KOSUKE-Author

Participant

ありがとうございます。

資料がほとんどないとのこと、承知致しました。

Acrobat上でJavaScriptでの操作も検討致します。

戻

戻り橋

Inspiring

PDFMakerAPIを使った、Excel VBAコードを記載しておきます。

Sub Exec_Click()

Dim pdfMakerApp As Object
Dim pdfConvertSetting As Object
Dim bitField As Long
Dim retVal

Set pdfMakerApp = CreateObject("PDFMakerAPI.PDFMakerApp")
Set pdfConvertSetting = CreateObject("PDFMakerAPI.ConversionSettings")

' デフォルト設定
pdfConvertSetting.LoadDefaultSettings
pdfConvertSetting.GetConversionParameters bitField

'しおりOFF
'bitField = bitField And (Not 2)
'しおりON
bitField = bitField Or 2

pdfConvertSetting.SetConversionParameters bitField

' PDF保存
retVal = pdfMakerApp.CreatePDF("C:\Work\Text.xlsx", "C:\Work\Test.pdf", pdfConvertSetting)

Set pdfConvertSetting = Nothing
Set pdfMakerApp = Nothing

End Sub