• ベストアンサー

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

Wendy02の回答

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

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

Jackybrown
質問者

補足

無知で申し訳ございませんでした。 設定することができました。 そこで、閉じるとエラー'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です。アプリとしてはちゃんとインストールしてあり、パワポを起動してからファイルを開くとパワポのファイルは見れるし、編集も出来ますが、保存したパワポのアイコンをダブルクリックしても開けないし、アプリケーションで開くからは、パワポが選択できません。どうしたらいいでしょうか?