パワーポイントでマクロ(Auto_Close)について

質問

パワポのマクロの件で質問です。
パワポのマクロでAuto_Closeは使えるのでしょうか？
作ってみたのですが、閉じてもマクロが実行されてないようなのです・・・

たとえば

Sub Auto_Close()

Msgbox "閉じます"

End sub

としても、何もおきずに閉じてしまいます。

分かる方がおられたら教えてください

※使用環境
WindowsXP
パワーポイント2003

回答No.2

Wendy02

こんばんは。

> 試しにアドインで保存して、アドインを導入しても動かないようです。

#1の書き込みは、簡単に書きすぎました。
WordもExcelも今後こうなるのかもしれませんが、サンプル・コードを最初見てください。

アドインで保存するコード
挿入で、標準モジュール　と　クラスモジュールを設けます。
'-------------------------------------------
' 標準モジュール
'-------------------------------------------
Public MyClass As Class1
Sub Auto_Open()
　Set MyClass = New Class1
　Set MyClass.app = Application
End Sub

'-------------------------------------------
'Class1
'-------------------------------------------
Public WithEvents app As Application

Private Sub app_AfterPresentationOpen(ByVal Pres As Presentation)
　'Test1.p* --- ファイル名
　If ActivePresentation.Name Like "Test1.p*" Then　'ファイル名で選別
　 MsgBox Time　'実行する部分
　End If
End Sub

'-------------------------------------------
後は、たぶん分かるとは思いますが、

Office ホームキー(左上の丸いボタン)--アドイン--PowerPoint アドイン--新規追加--
で選択してください。アドインが特別な場所にある場合は、信頼するフォルダを登録しておいてください。

後は、保存してあければよいです。

Auto_Close() はありません。Class 側は、ある意味ではローカルモジュールと同じですから、

app_PresentationBeforeClose　を選んでください。

If ActivePresentation.Name Like "Test1.p*" Then　を入れて、その後に目的のコードを入れてください。

補足

ご教授ありがとうございます。

ご教授頂いた通りにいろいろと試してみたのですが、うまく動きません。
そこで、下記の件についてご教授願います。

>Auto_Close() はありません。
・・・とありますが、「app_PresentationBeforeClose」を選んだ場合は標準モジュールはどのように設定すればよろしいのでしょうか？
Auto_openのままでよろしいのでしょうか？
度々の質問でお手数をおかけします。

現在、アドイン登録したコードを記述します
'標準モジュール
Public MyClass As Class1
Sub Auto_open()
Set MyClass = New Class1
Set MyClass.app = Application
End Sub

'クラスモジュール
Public WithEvents app As Application

Private Sub app_PresentationBeforeClose(ByVal Pres As Presentation)
If ActivePresentation.Name Like "Test1.ppt" Then '実行するファイルをtest1.pptとした場合
MsgBox "閉じます"　'メッセージボックスに「閉じます」と表示してから閉じる
End If
End Sub

どこか間違っているのでしょうか？
また、小生はパワーポイント2003と使用していますが、2003でも大丈夫でしょうか？
どうぞよろしく御願い致します。