PowerPointVBA複数ファイルへの一括日付入力マクロ

2011/10/08 08:57

このQ&Aのポイント

PowerPointVBAを使用して、現在開いているpptファイルと同じフォルダ内の全てのpptファイルに対して、1ページ目のサブタイトルに日付を一括で入力するマクロを作成したい。しかし、マクロの実行に時間がかかってしまうため、解決策を探している初心者です。
初心者のため、ヘルプやWeb検索でも解決策が見つからず困っています。現在のマクロでは、Forループの繰り返し毎に全てのファイルを開いてしまっているため、実行時間が長くなってしまっています。
マクロの実行時間を短縮する方法や、効率的な処理方法を教えていただきたいです。初心者にも理解しやすい解説やサンプルコードがあれば助かります。よろしくお願いいたします。

hiyomail
お礼率100% (1/1)

Visual Basic
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

doara_2011
ベストアンサー率59% (25/42)

2011/10/09 00:13 回答No.1

全ファイルが開いてしまっているのは、OpenしてCloseしていないのが原因かと。取りあえず、サブタイトルを書き込んだあと、 ActivePresentation.Save　　　' これでファイルを保存 ActivePresentation.Close　　 ' これでファイルをクローズとすればOKのはず。これで、マクロが終了するまでファイルが開きぱなしということはなくなります。あと、ActivePresentation.Saved = True をつけてマクロを実行済みでしょうか？だとすると、せっかくの変更が保存されずにマクロが終了している可能性が高いです。普通、変更したけど保存せずに「閉じる」を実施した時に、「変更されてるけど保存されてないよ。どうすんの？」という意味のダイアログが表示されますよね？上記は、本当は保存してないけど保存したと嘘をついて、上記ダイアログの表示を抑制する効果があります。つまり、変更したけど、保存せずにかつダイアログも出力させずにファイルを閉じたい場合に使用します。以上

質問者

お礼 2011/10/09 11:35

ありがとうございます！ ActivePresentation.Saved = Trueの件、確かめてみると、おっしゃるとおり、入った変更が保存されずに終わっていたようです。こちらの行は削除して、お教え頂いた下記をいれたところ、きちんと変更が保存された状態で閉じられていました。ありがとうございます_(_ _)_ ActivePresentation.Save　　　' これでファイルを保存 ActivePresentation.Close　　 ' これでファイルをクローズただ、やはり実行時間は変わらず、長々と砂時計が表示され・・(;_;) デバックのステップイン実行で動作を観察すると、常にForループの繰り返し毎に、 Presentations.Open FileName:=ActivePresentation.Path & "\" & File.Name の行で毎回、ばばばっと、1瞬だけ全ファイル開いて閉じた、みたいな表示がされます。その後の行では、1ファイルずつ開かれて変更して閉じて・・と希望通りの動作をしてくれてるのですが、、そういう仕様なのですかね。。素人の疑問ですみません。。

質問者

補足 2011/10/09 19:32

すみません！下の「お礼」を書いてから、気づいたのですが・・・orz 「ばばばっと、1瞬だけ全ファイル開いて閉じた、みたいな表示」というのは・・、そのpptmに含まれているマクロの標準モジュールでした・・。テストに使っていた同ファイル内のファイルたちが、実はpptではなく、pptmで、それぞれかなりたくさんのマクロ標準モジュールを持っていたため、開くたびにそれらが、開きっぱなしのVB Editorにロードされていただけでした。。マクロを持っていないpptで実行したら、砂時計など出てこずに実行できました！大変失礼いたしました。ありがとうございました_(_ _)_

ログインすると、全ての回答が全文表示されます。