VBAのパワーポイントアプリケーションのランタイムエラー430

Question

VBAコードでパワーポイントプレゼンテーションを作成し、ツールでライブラリ（アーリーバインディング）リファレンスも選択しました。しかし、私はVBAを通じてPowerpointアプリケーションを作成することはできません。私は以下のコードを書いて、私は"クラスは、オートメーションをサポートしていないか、または期待されたインターフェースをサポートしていません"というエラーを受け取ります。問題を解決するためにお手伝いください。

Sub CreatePPT() 

Dim MYPPT As PowerPoint.Application 
Set MYPPT = New PowerPoint.Application 

With MYPPT 

    .Visible = msoTrue 
    .Activate 

End With 

End Sub 

Answer 1

プレゼンテーションを追加する必要があります。変更する

Sub CreatePPT() 

Dim MYPPT As PowerPoint.Application 
Set MYPPT = New PowerPoint.Application 

Dim PPTPresent as PowerPoint.Presentation 

With MYPPT 

    .Visible = msoTrue 
    set PPTPresent = .Presentations.add 
End With 

End Sub