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

15 replies
8653 views
Translate

Adobe Acrobat Pro DCについて、

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

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

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

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

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

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

PDF の編集と変換

This topic is closed to new replies. Start a new post to keep the conversation going.

Ten A

Community Expert

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

Translate

-

-KOSUKE-Author

Participant

ありがとうございます。

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

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

Translate

戻

戻り橋

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

Translate