VBAを利用してPDFファイルをTIFFファイルに変換する

Question

以下のマクロにてPDFをTIFFに変換していましたが、Adobe Acrobat DC(2015)から新しく契約したAdobe Acrobat Standard(ETLA)に移行した後にマクロを実行させるとAdobe Acrobat PDFの方でエラーが出るようになりました。

エラー内容：ファイルに書き込み中にエラーが発生しました。ディスク容量が不足している可能性があります。

Office365 Excel　デスクトップアプリ

OS：Windows11

PCのディスク空き容量：45GB

PCのメモリ容量：32GB

仮想メモリも変更してみましたが変わらずVBA自体が新しいAdobe Acrobat Standard(ETLA)に対応しなくなったのか、Adobe Acrobat Standard(ETLA)側がVBAからの操作を拒否等しているのか分かりません。解決方法がありますでしょうか？

Private Sub A9_Cl()

Dim objAcroApp As New Acrobat.AcroApp 

Dim objAcroAVDoc As New Acrobat.AcroAVDoc 

Dim objAcroPDDoc As Acrobat.AcroPDDoc 

Dim lRet As Long 

Dim jso As Object 

'Acrobatアプリケーションを起動する。 

lRet = objAcroApp.Show 

'PDFファイルを開いて表示する。 

lRet = objAcroAVDoc.Open("フォルダアドレス\ファイル名.pdf", "") 

'PDDocオブジェクトを取得する 

Set objAcroPDDoc = objAcroAVDoc.GetPDDoc() 

'JavaScriptオブジェクトを作成する。 

Set jso = objAcroPDDoc.GetJSObject 

jso.SaveAs "フォルダアドレス\ファイル名.tiff", "com.adobe.acrobat.tiff" 

'PDFファイルを変更無しで閉じます。 

lRet = objAcroAVDoc.Close(1) 

'Acrobatアプリケーションを終了する。 

lRet = objAcroApp.Hide 

lRet = objAcroApp.Exit 

'OLEを行うとAcrobatが不安定になるので、 

'一応オブジェクトを強制開放する。 

Set jso = Nothing 

Set objAcroAVDoc = Nothing 

Set objAcroApp = Nothing 

End Sub

Answer 1

VBA(マクロ)の公式サポート場所は、海外コミュニティとなっています。

有識者が集まっている所の方が、適切なアドバイスを受けやすいでしょう。

・Stack Overflow(VBA)

　　[VBA プログラミングに関する質問]

　　Stack Overflow には、説明的なタイトル、完全で簡潔な問題ステートメント、問題を再現する
　　ための十分な詳細の要求などのガイドラインがあることに注意してください。
　　機能要求または過度に広範な質問は、トピック外と見なされます。
　　新しいユーザーの場合は、Stack Overflow ヘルプ センター にアクセスして詳細を確認して下さい。

※ 閲覧者・回答者が多い公式サポートサイトをお勧めします。

　 英語で質問を送信してください。

<追記>

Acrobatのライブラリを利用しているのであれば、Acrobat社に聞く方が良いかも？

Answer 2

Hebikuzure様

回答ありがとうございます。

引き続き、Adobe側での対応を模索していきます。

Answer 3

VBA での操作が可能かどうかは、操作されるアプリケーションの側の実装で決まります。

なので「製品が異なるのでMicrosoft側に聞いて下さい」というのが（たぶん面倒な質問を体よく追っ払うための）デタラメですね。

何をやってもダメであれば、製品が VBA での操作に対応していない部分があるのかもしれません。

Answer 4

simo-k2様

回答ありがとうございます。

Adobeライセンス購入時にVBAでの操作が可能かを聞いたのですが

製品が異なるのでMicrosoft側に聞いて下さいと言われた次第です。

聞くところを変えて再度問合せしてみます。