- ベストアンサー
パワーポイントでマクロ(Auto_Close)について
Wendy02の回答
- Wendy02
- ベストアンサー率57% (3570/6232)
こんにちは。 >閉じるとエラー'424' >オブジェクトが必要ですと出ます。 アドイン・ファイルの中の VBEditor のメニュー--挿入--標準モジュールをクリックして、[標準モジュール]を挿入した後に、以下のコードが入れてなくてはなりません。もしかしたら、以下のコードが、同じ場所に入れていませんか？別々の場所です。ややこしいのですが、そういうことになっています。 ------------------------------------------- ' 標準モジュール '------------------------------------------- Public MyClass As Class1 '← 一番上 Sub Auto_Open() Set MyClass = New Class1 '←ここがオブジェクトが生成される Set MyClass.app = Application '* End Sub '------------------------------------------- * 確認するときは、クラス設定されていれば、以下の場所で Set MyClass. ←ピリオドを入れると、app がポップアップします。 アドインを設定したら、一旦、アプリケーションソフトを一旦終了して、再度立ち上げ、ファイルを開くと、マクロが設定されます。 絵付きのサンプルサイトがあると良いのですが、こういう方法は、あまりありませんので、もう少しがんばってみてください。
関連するQ&A
- エクセルのマクロでパワーポイントについて
エクセルでマクロを使用してパワーポイントを開くマクロについて質問です。 下記ののようなマクロを実行すると、目的のファイルは開くのですが 最小化で開かれてしまいアクティブになりません。(タスクバーのところで光っているだけ) このマクロ組んだPCで実行するとスライドショーが開かれるのですが 他のPCからこのマクロが組んであるエクセルを開いて実行すると上記のような 状態になってしまいます。 どのようにすれば、どのPCでもスライドショーから始まるのか教えて下さい。 Sub コール() Set objPpt = GetObject("V:\テスト\コール_20170711.pptx") '' スライドショー実行 objPpt.SlideShowSettings.Run End Sub
- 締切済み
- Excel（エクセル）
- [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.3ｃｍ 幅20.32→7.07ｃｍに変更したい。 マクロの実行をする。→ 画像サイズが変わっている。 すいません。初心者なので、わかりやすくおしえてくれませんか？
- 締切済み
- グラフィックソフト
- パワーポイントで教えていただいたマクロが2010ではできたのに、200
パワーポイントで教えていただいたマクロが2010ではできたのに、2007でできなくて困っています。 先日こちらで以下の質問をしました。 ----------------------------- スライドごとに1枚の図が入ったスライドが100くらいあります。 図の大きさを同じに揃えたいのですが、オブジェクトの書式設定で一枚ずつサイズを指定して配置も指定していますが、いつになっても終わりません。 ワードのキーマクロのように同じ繰り返しを簡単にできる技はないのでしょうか。 教えてください。 パワーポイントのバージョンは、2003と2010(試用版)でやっています。 ---------------------------------- http://okwave.jp/qa/q5885234.html そして絵の大きさを揃えるマクロを教えていただきました。 とても良かったのですが、2010試用版が使えなくなるので、発売まで待てず2007を買いました。 そしたら2007では、実行しても何も起きなくて困っています。 エラーが起きるわけでもないのに、絵の大きさが変わりません。 2007でも使えるマクロを教えてください。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルからマクロでパワーポイントを開きたい。
エクセルでUserFormに配置したボタンをクリックすると"AAA.pps"という名のパワーポイントスライドショーが始まる、としたい。 次の形でパワーポイントを開くところまでは参考書で見つけたが その先の名前の指定方法がわかりません。ご教示乞う。 エクセル、パワーポイントともに２００３。 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
- ベストアンサー
- オフィス系ソフト
- パワーポイントが開けない
パワーポイント２００３を使用してます。ＯＳはＸＰです。アプリとしてはちゃんとインストールしてあり、パワポを起動してからファイルを開くとパワポのファイルは見れるし、編集も出来ますが、保存したパワポのアイコンをダブルクリックしても開けないし、アプリケーションで開くからは、パワポが選択できません。どうしたらいいでしょうか？
- 締切済み
- オフィス系ソフト
補足
遅くなり申し訳ございません。 何度も綴りなどを確認するのですが、貴殿の言われたとおり入力されているにもかかわらず、同じエラーがでます。 上記の確認事項では、appがポップアップしました。 一生懸命、説明していただいているのに成果が出ておらず申し訳ございません。