• ベストアンサー

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

Wendy02の回答

  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.6

>上記の確認事項では、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\ 次に、メニューから、ツール--アドイン--参照--登録したファイルを選択して登録をしていないとできません。 セキュリティで、信頼できる発行元--組み込み済みのアドインを信頼する  は登録していないといけません。

Jackybrown
質問者

補足

いつも、根気強くご教授いただきありがとうございます。 上記操作を行ないました 1.デバック(コンパイル)→エラーなし 2.ローカルウィンドウチェック→appの表示までOK 3.アドインの位置→通常の位置にあります 4.アドイン登録→新規追加・読み込みで完了 5.セキュリティ登録→登録OK 以上の操作を完了しましたが、同様のエラーが発生します。 ここで、手順のおさらいをお願いできますでしょうか 1.VBEにてclassモジュールの挿入で「Public WithEvents app As Application」を入力してAppを選択後「PresentationClose」を選択して、不要なイベントを削除し、「If ~ End If」までを入力しコンパイルで確認 2.標準モジュールの挿入で「Public MyClass ~ End Sub」までを入力し、コンパイルで確認後、ローカルウィンドウでF8チェック 3.名前をつけて保存で、種類をppaに選択して適当な名前でアドイン格納場所へアドインを保存する。 4.名前をつけて保存で、「test1.ppt」で適当な位置で保存 5.閉じる(この部分でエラー424が発生) 6.再度test1を開いてマクロを有効、アドインの登録確認、セキュリティの確認をする 以上の手順で行なっても、閉じる際にエラー424が発生します 何か手順に誤りがありますでしょうか 何度も申し訳ございません。

関連するQ&A

  • エクセルのマクロでパワーポイントについて

    エクセルでマクロを使用してパワーポイントを開くマクロについて質問です。 下記ののようなマクロを実行すると、目的のファイルは開くのですが 最小化で開かれてしまいアクティブになりません。(タスクバーのところで光っているだけ) このマクロ組んだPCで実行するとスライドショーが開かれるのですが 他のPCからこのマクロが組んであるエクセルを開いて実行すると上記のような 状態になってしまいます。 どのようにすれば、どのPCでもスライドショーから始まるのか教えて下さい。 Sub コール() Set objPpt = GetObject("V:\テスト\コール_20170711.pptx") '' スライドショー実行 objPpt.SlideShowSettings.Run End Sub

  • [Excel2000]auto_closeを止めさせるには

    Excel2000で、 特定のボタンを押した場合以外の閉じる処理を キャンセルさせたいのですがうまくいきません sub ボタン押() flg = true end sub sub auto_close() if flg <> true then msgbox "AAA" exit sub end if end sub これでは、どーやってもそのまま終了してしまいます。 なにか良い方法はないでしょうか・・・ よろしくおねがいします。

  • エクセル2007 Sub Auto_Close()について教えて下さい

    ドラッグとドロップを禁止するために以下のマクロを入れています。 Sub Auto_Open() '無効 Application.CellDragAndDrop = False End Sub Sub Auto_Close() '有効 Application.CellDragAndDrop = True End Sub 上記のマクロだと、ファイルを開いた時は CellDragAndDrop は無効なのですが 終了するときに、[終了]-[キャンセル]して再度作業を進めようとすると CellDragAndDrop が有効になってしまいます。 Sub Auto_Close() で、[終了]-[キャンセル]の場合のみ、  Application.CellDragAndDrop = False とするには、どのうように記述すれば良いのでしょうか? よろしくお願いします。

  • パワーポイントのマクロについて

    パワーポイントで簡単なマクロ(アニメーションを動かさないで、スライドショーを実行する)を作りました。そしてユーザー設定からツールバーにボタンとして配置しました。 ところが、一度そのパワーポイントを閉じてしまい同じファイルや違うファイルを開くと、そのマクロが無効になってしまいます。 私がお聞きしたいのは、 「一度作ったマクロを次回から開くすべてのパワーポイントファイルで使えるようにすることはできるのか?」 です。 どうかご存じの方いらっしゃいましたら、よろしくお願い申し上げます。

  • パワーポイント2010で画像のマクロ

    はじめまして  マクロ初心者なので、教えていただけたら幸いです。 パワーポイント(以後パワポ)上で、多量の画像をしなければならず、 処理としましては、 自分でやる作業は、パワホ上で、挿入 画像選択 パワホのスライドの上に表示される。 ここからマクロをくみたいのです。 マクロ内容 画像を選択、画像サイズを高さ15.24→5.3cm 幅20.32→7.07cmに変更したい。 マクロの実行をする。→ 画像サイズが変わっている。 すいません。初心者なので、わかりやすくおしえてくれませんか?

  • パワーポイントで教えていただいたマクロが2010ではできたのに、200

    パワーポイントで教えていただいたマクロが2010ではできたのに、2007でできなくて困っています。 先日こちらで以下の質問をしました。 ----------------------------- スライドごとに1枚の図が入ったスライドが100くらいあります。 図の大きさを同じに揃えたいのですが、オブジェクトの書式設定で一枚ずつサイズを指定して配置も指定していますが、いつになっても終わりません。 ワードのキーマクロのように同じ繰り返しを簡単にできる技はないのでしょうか。 教えてください。 パワーポイントのバージョンは、2003と2010(試用版)でやっています。 ---------------------------------- http://okwave.jp/qa/q5885234.html そして絵の大きさを揃えるマクロを教えていただきました。 とても良かったのですが、2010試用版が使えなくなるので、発売まで待てず2007を買いました。 そしたら2007では、実行しても何も起きなくて困っています。 エラーが起きるわけでもないのに、絵の大きさが変わりません。 2007でも使えるマクロを教えてください。 よろしくお願いいたします。

  • エクセルからマクロでパワーポイントを開きたい。

    エクセルでUserFormに配置したボタンをクリックすると"AAA.pps"という名のパワーポイントスライドショーが始まる、としたい。 次の形でパワーポイントを開くところまでは参考書で見つけたが その先の名前の指定方法がわかりません。ご教示乞う。 エクセル、パワーポイントともに2003。 Private Sub CommandButton1_Click() Application.ActivateMicrosoftApp xlMicrosoftPowerPoint End Sub 試行錯誤でマクロの記録で取得した次のコードでは頭の「Presentations」で「変数が定義されていません」と断られました。 sub aaaaa() Presentations.Open FileName:="C:\Documents and Settings\user\My Documents\AAA.pps", ReadOnly:=msoFalse With ActivePresentation.SlideShowSettings .ShowType = ppShowTypeKiosk .LoopUntilStopped = msoTrue .ShowWithNarration = msoTrue .ShowWithAnimation = msoTrue .RangeType = ppShowAll .AdvanceMode = ppSlideShowUseSlideTimings .PointerColor.SchemeColor = ppForeground .Run End With End Sub

  • パワーポイントのマクロの実行

    パワーポイント2003で簡単なコピーのマクロを作成しましたが、実行させようとすると「実行」がグレーになっていて出来ません。「編集」や「削除」は出来ます。どうしてでしょうか?

  • Excel 終了マクロ

    Excel で終了マクロを作ってみましたが、途中で次のメッセージが出てしまいます。 「実行時エラー'424' オブジェクトが必要です」 どう直したらよいか、教えて下さい。よろしくお願いします。 Sub Macro1() With ActiveWorkbook If MsgBox("終了します") = vbOK Then Set dbsTemp = Nothing ActiveWorkbooks.Close End If End With End Sub

  • パワーポイントが開けない

    パワーポイント2003を使用してます。OSはXPです。アプリとしてはちゃんとインストールしてあり、パワポを起動してからファイルを開くとパワポのファイルは見れるし、編集も出来ますが、保存したパワポのアイコンをダブルクリックしても開けないし、アプリケーションで開くからは、パワポが選択できません。どうしたらいいでしょうか?