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

Question

パワポのマクロの件で質問です。
パワポのマクロでAuto_Closeは使えるのでしょうか？
作ってみたのですが、閉じてもマクロが実行されてないようなのです・・・

たとえば

Sub Auto_Close()

  Msgbox "閉じます"

End sub

としても、何もおきずに閉じてしまいます。

分かる方がおられたら教えてください

    ※使用環境
    WindowsXP
    パワーポイント2003

Wendy02 · Accepted Answer

こんにちは。

>イベントの書き込み方法等を詳しく教わり有難く思っております。

もっと大事なことを書きました。私のデバッグの方法です。今まで、全容は一度も公開したことがありません。今まで、そういう必要がなかったからですが。
デバッグは、Debug.Print やWatch Window を使えばよいとお思いかもしれませんが、意外に、これらは不便です。特に、Debug.Print は、そんなに多くバッファが取れませんので、せいぜい、数行に限られますし、それぐらいなら、ローカルウィンドウを使えば済みます。

「へー、こんなことをしているのだ」っていうだけでよいのです。人は人なのですが、デバッグに、Watch Windowsとか言っている人がいたのですが、本当かなって思いました。

ところで、再びお詫びというか、最初の質問から、その内容を読み違えていたところにあったように思います。一ひねり考えてしまいました。他の人が書いていたら、おそらく、もっと早い段階で解決したものだと思いますが、私は、別の考えたところに、突っ込んでしまった後では、すぐに気が付かなかったのです。

>パワーポイント本体（アプリケーション）を閉じるとエラーがでます。

普通は、ファイルとアプリケーションとは同時に終了するから、エラーは出ないはずですが。
単に「閉じる」という動作そのものに表示を出すということではないかと思いました。そうすれば、ファイル名も関係なくなります。

イベントの部分は、以下のようでよいはずです。Pres.Name は、ファイル名が出ます。ここから、構築して行くべきでした。
これが、本来の基本形です。
'-------------------------------------------

Public WithEvents app As Application
Private Sub app_PresnetationClose(ByVal Pres as Presentation)
　　 MsgBox Pres.Name & "閉じます"　'
End Sub

Wendy02 · Answer

こんにちは。

>何か手順に誤りがありますでしょうか

最初に、まことに大変にすみません。お恥ずかしい話ですが、私のつづりが違っていました。
オブジェクトエラーが出るはずです。なんといっていいやら、穴があったら入りたいぐらいです。言われてすぐに気がつくべきでした。（自分の書き込みを削除したいぐらいです。（^^;←本当に汗が出てきています。)

訂正後（一文字直せばよいけれども……)
-------------------------------------------
Public WithEvents app As Application
Private Sub app_Presnetation Close(ByVal Press as Presentation)
　If UCase(ActivePresentation.Name) Like UCase("Test1.ppt") Then
　'実行するファイルをtest1.pptとした場合
　　 MsgBox "閉じます"　'
　EndIf
End Sub
'-------------------------------------------
本来は、
　If UCase(Press.Name) Like UCase("Test1.ppt") Then
と書けばよかったはずですが、少し不安があって書き換えたことが良くありませんでした。

Wendy02 · Answer

>上記の確認事項では、appがポップアップしました。

それでは、その部分は問題はありません。


もう、デバッグモードで、デバッグを進めていくしかありません。

デバッグ--VBAプロジェクトのコンパイル
それで、間違っていれば、どこかでエラーが発生します。

次に、表示--ローカルウィンドウ-->以下にマウスカーソルを置く--->次にF8を押す。
'-------------------------------------------
'標準モジュール
'-------------------------------------------
Public MyClass As Class1 
Sub Auto_Open()　'←ここ以下にマウスカーソルを置く--->次にF8を押す
　Set MyClass = New Class1 
　Set MyClass.app = Application　
End Sub　'←*ここまで来たら、止める

'-------------------------------------------
数回、F8を押していくと黄色の帯が進んで生きます。

黄色の帯がEnd Subまで来たら、
ローカルウィンドウ側のModule1 をクリック。
その中に、+ MyClass があるはずです。
その＋のところをクリック
その中に、+app があるはずです。
そうしたら、その中に、Application が確保されているはずです。
右側を見ると、Application と書いてあるはずです。
それで、Application オブジェクトが確保されました。

これで、ひとまず完成です。

本来、仮のチェックプログラムを置きたいところですが、現行のプログラムでは、チェックプログラムと同質の内容ですから、割愛します。

しかし、こちらとしては、アドイン自体が動くかどうかの検討はされていません。
基本的には、アドインはしかるべき場所においてあることが条件です。

通常は、ここです。(XPの場合で、Vistaでも、同様の場所があります)
C:\Documents and Settings\[User Name]\Application Data\Microsoft\AddIns\

次に、メニューから、ツール--アドイン--参照--登録したファイルを選択して登録をしていないとできません。

セキュリティで、信頼できる発行元--組み込み済みのアドインを信頼する　
は登録していないといけません。

Wendy02 · Answer

こんにちは。

>閉じるとエラー'424'
>オブジェクトが必要ですと出ます。

アドイン・ファイルの中の
VBEditor のメニュー--挿入--標準モジュールをクリックして、[標準モジュール]を挿入した後に、以下のコードが入れてなくてはなりません。もしかしたら、以下のコードが、同じ場所に入れていませんか？別々の場所です。ややこしいのですが、そういうことになっています。

-------------------------------------------
' 標準モジュール
'-------------------------------------------
Public MyClass As Class1 '←　一番上
Sub Auto_Open()
　Set MyClass = New Class1 '←ここがオブジェクトが生成される
　Set MyClass.app = Application　'*
End Sub

'-------------------------------------------

*　確認するときは、クラス設定されていれば、以下の場所で
　Set MyClass. ←ピリオドを入れると、app がポップアップします。

アドインを設定したら、一旦、アプリケーションソフトを一旦終了して、再度立ち上げ、ファイルを開くと、マクロが設定されます。

絵付きのサンプルサイトがあると良いのですが、こういう方法は、あまりありませんので、もう少しがんばってみてください。

Wendy02 · Answer

こんにちは。

>やはり2003だからでしょうか

そういうことはありません。もう一度、手順を確かめてください。

まず、Class1 モジュールは、VBEditor のメニューの挿入--クラスモジュール(c) をクリックして、
Class モジュールを挿入させます。

その時に、ソフトウェアの一番上の部分で、モジュール名が、「Class1」 となっていることを確認してください。
「Micorosot Visual Basic -********--[Class1(コード)] 
**** はファイル名

そして、イベント名を、エディタ・ペイン(白い画面)の上部に以下のように書き込むと、

Public WithEvents app As Application

画像のように、
　(General)
　app
　Class 

とありますので、app を選択すると、適当なイベントが出現します。
左側が「app」と出ているところで、今度は、右の窓から、PresnetationClose　を選ぶと、正しいイベントが選択されます。
最初にできた不必要なイベントは、削除しておいてください。通常、このようにして、設定されます。

Wendy02 · Answer

こんにちは。

PowerPoint は、2003も2007も、VBAの仕様としては、ほとんど同じはずですが、コードをチェックしたのは、PowerPoint 2007 だけです。

前回、リストから引用しただけだったので、私の#2のCloseの部分は間違っていました。お手数かけてすみません。回答者として、不勉強な上にうかつでした。

他に書き方もありますが、ここは、こんな風にしてください。

If UCase(ActivePresnetation.Name) Like UCase("Test1.ppt") Then 

'Class1側

'-------------------------------------------
Public WithEvents app As Application
Private Sub app_Presnetation Close(ByVal Press as Presentation)
　If UCase(ActivePresnetation.Name) Like UCase("Test1.ppt") Then　'実行するファイルをtest1.pptとした場合
　　 MsgBox "閉じます"　'メッセージボックスに「閉じます」と表示してから閉じる
　EndIf
End Sub
'-------------------------------------------
アドインは編集できない場合もありますので、その場合は、コードをすべて入れて、同名のファイル名(アドイン)で上書きしてしまってください。

クラス側のイベント名が正しく入っているかのチェックポイントを図にして入れておきます。

Wendy02 · Answer

こんばんは。

> 試しにアドインで保存して、アドインを導入しても動かないようです。

#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　を入れて、その後に目的のコードを入れてください。

Wendy02 · Answer

こんばんは。

PowerPoint で、Auto_Open や Auto_Close は、アドイン型(2003--ppa, 2007-ppam に保存してあげないと、実行されません。

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

こんにちは。

こんにちは。

この回答への補足

>上記の確認事項では、appがポップアップしました。

この回答への補足

こんにちは。

この回答への補足

こんにちは。

この回答への補足

こんにちは。

この回答への補足

こんばんは。

この回答への補足

こんばんは。

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング