VBA PPTでWorkBook_Openのような

質問

【PPTのVBA】　PPTでWorkBook_Openのような機能のコード

　今晩は、質問させていただきます。どうぞよろしくお願いいたします。

　環境：Win7＋Vista　になります。

　PPTファイルを開くと同時に、UserForm1を表示させられるような方法を探しております。
が、分かりません。。。
　オブジェクトブラウザで「Open」と検索いたしましたところ、
「PresentationOpen 」「AfterPresentationOpen 」というものがございました為、
ネット上で更に検索いたしますと
　　　　http://msdn.microsoft.com/en-us/library/aa211552(v=office.11).aspx
に
Private Sub App_AfterPresentationOpen(ByVal Pres As Presentation)
　　With Pres
　　　　Set CS3 = .ColorSchemes(3)
　　　　CS3.Colors(ppBackground).RGB = RGB(240, 115, 100)
　　　　With Windows(1)
　　　　　　.Selection.SlideRange.ColorScheme = CS3
　　　　　　.ViewType = ppViewSlide
　　　　End With
　　End With
End Sub
というものがございました。しかしこれを記入した.pptmファイルを起動致しましても、
何も起こりません。。。
　サブルーチン名も色々と変えてみましたが、動いてくれませんでした。
ネット上でも同じような疑問を抱えてらっしゃる方のQ＆Aなどを沢山見つけました。

　上記方法以外でも結構でございますので何か、UserFormを
表示させる方法をご存じの方がいらっしゃいましたら是非、アドバイス頂きたくお願いいたします。
　もしお詳しい方がいらっしゃいましたら，どうぞよろしくお願いいたします。

回答No.1

akina_line · ベストアンサー

こんにちは。

　PowerPointでのイベント処理は以下の手順を踏む必要があれます。
　(以下の説明、サンプルはPPT2003 VBA Helpより抜粋しました。)

1.イベントに応答するオブジェクト変数をクラス モジュール内に宣言します。
例)
Public WithEvents App As Application

2.個別のイベント プロシージャを記述します。
例)
Private Sub App_NewPresentation()

End Sub

3.宣言したオブジェクトを別のモジュールから初期化します。
例)
Dim X As New EventClassModule
Sub InitializeApp()
Set X.App = Application
End Sub

　ここまでの手順を実行して初めてイベントがとれるようになるため、起動時にイベントをとりたい場合、その前に上記1-3の処理を実行しておく必要があり、正直、イベントが無意味に思われます。

では。

お礼

どうもありがとうございます！m(_ _)m

　ご紹介いただいたコードを検索いたしますと、英語サイトなどで沢山出てまいりますね。
　私もひと通り、真似てコーディングさせていただきました。
＞起動時にイベントをとりたい場合、その前に上記1-3の処理を実行しておく必要があり、正直、イベントが無意味に思われます。
　なるほどーーー(・o・)イベントを検知する為にこれらを実行する必要があるのでございますか。
VBAは大好きですので今まで沢山コーディングして参りましたが、このような（イベント発生を取るための）コーディングは今までした事がございませんでした。
しかし、となりますと、PPTファイルを開く前にこれを一度実行してもらわねばならないわけでございますね。。。orz

　しかし沢山勉強になりました！！どうもありがとうございました！！
本件については引き続き奮闘いたします。
が、ご質問させていただいたコードについてはakina_line様のお陰で
全て理解いたしましたので、解決にさせていただきます！！
　この度はご親切に誠にありがとうございました！！(`_´)ゞ