ExcelVBAでExcelシートからPowerpoint出力する時にActiveXコンポーネントはオブジェクトを作成できませんというエラーが出る

Question

いつもお世話になっております。
今回は少々珍しいエラーで困っているので、質問させていただきました。

現状の様子

現在、ExcelVBAでExcelシートからPowerpoint出力するというサンプルマクロを作っています。
VBAを使って既存のPowerpointファイルをPDFにするというイメージです。

それでこういうコードを作りました。

Public Sub ExportAsFixedFormat_Example()

    Dim prng As PrintRange
    ActivePresentation.PrintOptions.Ranges.ClearAll
    Set prng = ActivePresentation.PrintOptions.Ranges.Add(1, 3)
    '1～3ページを指定（スライド数が指定よりも少ない場合はエラー）
    ActivePresentation.ExportAsFixedFormat "C:\作業中\PPTtoPDF\test1.pptx", _
    ppFixedFormatTypePDF, , , , , , prng, ppPrintSlideRange, , , , , , False
    
End Sub

エラー発生の様子

しかし、以下のコードの部分でエラーが発生します。

ActivePresentation.PrintOptions.Ranges.ClearAll

エラーメッセージは具体的にはこのような内容です。

分からない点

それで色々と調べたのですが、これは

https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/activex-component-can-t-create-object-or-return-reference-to-this-object-error-4?redirectedfrom=MSDN
このURLによると、

オブジェクトを作成するときは、オブジェクトのクラスがシステム レジストリに登録されていて、関連するすべてのダイナミックリンク ライブラリ (DLL) が使用できるようになっている必要があります。

とのことなので、何かのDLLが足りない、ということなのかなと思ったのですが・・
具体的にどんなDLLが足りないのか分かりません。

ただ、気になっているのは、以前ハードディスクドライブの中身の整理を色々としておりその時に不要なファイルなどは捨てたのですが、その時に何か必要なものも間違って捨てたのかな・・？と気になっています。

どなたかお分かりの方、こういうエラーの場合はどうすればいいのか教えていただけますでしょうか？
よろしくお願いいたします。

Answer 1

空っぽのExcelなので、テスト用に準備を追加しました。
ClearAllについてはエラーはでていません。
おそらく、ActivePresentationが何なのかがあいまい、または特定出来ていなかった、などが原因な気がします。
ExportAsFixedFormat でエラーが出ますが、別原因っぽいので調べていません。

Public Sub ExportAsFixedFormat_Example()
    Dim prng As PrintRange
    Dim app As New PowerPoint.Application
    Dim prs As Presentation
    Dim lo As CustomLayout
    Dim sl As Slide
        
    app.Visible = msoTrue
    Set prs = app.Presentations.Add    
    Set lo = prs.SlideMaster.CustomLayouts.Add(1)
    Set sl = prs.Slides.AddSlide(1, lo)
    Set sl = prs.Slides.AddSlide(1, lo)
    Set sl = prs.Slides.AddSlide(1, lo)

    prs.PrintOptions.Ranges.ClearAll
    Set prng = prs.PrintOptions.Ranges.Add(1, 3)
    '1～3ページを指定（スライド数が指定よりも少ない場合はエラー）
    prs.ExportAsFixedFormat "C:\Users\xxx\Documents\test1.pdf", _
    ppFixedFormatTypePDF, , , , , , prng, ppPrintSlideRange, , , , , , False
End Sub

追記：
ExportAsFixedFormat はpptxじゃなくてpdfファイル名ですね。（jinojiさんご指摘）

Comments

[jinoji]

既存のPowerpointファイルをPDFにするということなので、

'略

Set prs = app.Presentations.Open("C:\作業中\PPTtoPDF\test1.pptx")

'略

prs.ExportAsFixedFormat "C:\作業中\PPTtoPDF\test1.pdf", _
ppFixedFormatTypePDF, , , , , , prng, ppPrintSlideRange, , , , , , False

でよいのでは。

[neuromancer]

それで良いと思います。私のほうには現物がないので。。
ああ、pdf保存したいのに、pptxになってましたね。修正します。

Answer 2

こちらを参考にされていると思います。
https://b.0218.jp/20130118095008.html
これはPowerPointのVBAなのでExcelVBAではありません。

ExcelVBAでPowerPointを操作する方法を調べるか、
そもそも今回のコードをPowerPointのVBAで使用するか、
どちらかだと思います。