- ベストアンサー
【パワーポイント】「ファイルを開いたら」vbaの実行したい
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
PowerPointにはopen時のイベントプロシージャは用意されていません。 ヘルプでWithEventsを調べて、作ったものをアドインとして組み込んでやれば その後は、ファイルを開く時・Slide移動時・クリック時・その他いくつものイベントを自由に使えるようになります。 （理解しにくい内容なので食いつく気持ちでトライしてみてください。）
関連するQ&A
- エクセル VBA エクセルの表示について
下記のプロシージャを実行し、Userform1のみ表示したじょうたいで、他のエクセルファイルを開くとエクセルが表示されません。他のエクセルファイルを開いた時に、エクセルが自動で表示されるような対処法を教えてください。どうかよろしくお願いします。 Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub
- ベストアンサー
- Visual Basic
- ファイルを開くと同時にユーザフォームを表示させたい
Excelでファイルを開いたとき、自動的にユーザフォームを表示させるにはどのようにするのでしょう。下のコードを標準モジュールに書きました。「オブジェクトが必要です」のエラーメッセージが出てしまいます。 何を変えればいいのかお教えください。(Excel2002) Sub Auto_Open() UserForm1.Show End Sub
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAについてです。
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) UserForm1.Show End Sub というコードで、シート上で右クリックしたら、ユーザーフォームを表示するようにしたんですが、ユーザーフォームを閉じると右クリックメニューが出てきます。これを出なくするにはどのようにしたらいいのでしょうか。教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- vbsでexcelファイルを開いた時とダブル
お世話になっています。 vbsでexcelファイルを開いた時と、ダブルクリックでexcelファイルを開いた時とで表示するフォームを変えたいのです。 どうしてもうまくいきませんので、教えてください。 「起動.xlsm」というexcelファイルに「検索画面」「登録画面」という2つのユーザーフォームがあります。 excelの立ち上げ方法によってこの2つのフォームをどちらを起動時に立ち上げるかを決定したいのです。 1. vbsファイルの上に任意のファイルをドラッグさせた時には ’vbsには oApp.RUN "SHOW_Form_登録画面" ’excelには Sub SHOW_Form_登録画面() 登録画面.Show End Sub として登録画面を表示させています。 2. 「起動.xlsm」をダブルクリックした時には Private Sub Workbook_Open() 検索画面.Show End Sub として検索画面を表示しています。 どちらも単体では動きますが、両方を書き込むと どちらの方法をとっても検索画面が前面に立ち上がってしまいます。 どうしたら希望のことができるでしょうか？ いったん表示させた「検索画面を閉じる」ということでもかまいません。 すいませんが、教えていただけると助かります。
- ベストアンサー
- その他（プログラミング・開発）
- 複数のユーザーフォームをコマンドボタンにて表示・非表示させるには
VBA勉強中のものです。 複数のユーザーフォームをコマンドボタンを使用して画面への表示切替を考えております。 例）ユーザーフォーム1,ユーザーフォーム2,ユーザーフォーム3のそれぞれにコマンドボタン1,コマンドボタン2,コマンドボタン3を作成し、 コマンドボタン1→ユーザーフォーム1を表示 コマンドボタン2→ユーザーフォーム2を表示 コマンドボタン3→ユーザーフォーム3を表示 とするようなことを考えおります。 そこで、下記のようにコードを作成したのでですが，一度表示させたユーザーフォームを再度表示させようとコマンドボタンをクリックしたら、「フォームはすでに表示させているのでモーダル表示はできません」とエラーがでてしまいます。 どなたか、どのようにしたらいいかご教授ねがいます。 サンプルコード） --------------------------------------------------- 'UserForm1のコード Private Sub CommandButton2_Click() Call UserForm2_show UserForm1.Hide End Sub Private Sub CommandButton3_Click() Call UserForm3_show UserForm1.Hide End Sub ---------------------------------------------------- 'UserForm2のコード Private Sub CommandButton1_Click() Call UserForm1_show UserForm2.Hide End Sub Private Sub CommandButton3_Click() Call UserForm3_show UserForm2.Hide End Sub ------------------------------------------------------- 'UserForm3のコード Private Sub CommandButton1_Click() Call UserForm1_show UserForm3.Hide End Sub Private Sub CommandButton2_Click() Call UserForm2_show UserForm3.Hide End Sub ------------------------------------------------------------ '標準モジュール コード Sub UserForm1_show() UserForm1.Show End Sub Sub UserForm2_show() UserForm2.Show End Sub Sub UserForm3_show() UserForm3.Show End Sub
- ベストアンサー
- オフィス系ソフト
- 実行エラー'424' ？？？？
エクセルでユーザーフォームを作成しました。 (オブジェクト名) UserForm7 です。 これを 開くマクロは Sub 受入フォームの表示() UserForm7.Show End Sub です。 すると 実行エラー'424' オブジェクトが必要です。と デバックします。 ちなみにUserForm1も作成してあり マクロは Sub 仕入先マスタ表示() Dim mytbl As Range Set mytbl = Worksheets("T_仕入先").Range("仕入先リスト１") UserForm1.Caption = "仕入先選択" UserForm1.Label1.Caption = "■仕入先一覧■" With UserForm1.ListBox1 .ColumnCount = mytbl.Columns.Count .ColumnWidths = "2cm;3cm" .List = mytbl.Value End With UserForm1.Show End sub は問題なくフォームが表示します。 どこがわるいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- こんばんわ
こんばんわ 宜しくお願いします エクセルを開くときに、ユーザーフォームを表示するようにしています。 しかし、ユーザーフォームを表示する前に、前回閉じたときのワークシートが 一瞬表示されます。 機能的に問題はないのですが、見栄えが悪いので、この表示をさせないようにできないでしょうか。 Sub Workbook_Open() 表紙.Show End Sub
- ベストアンサー
- Visual Basic
- UserForm1.Showでエラーになります。
Thisworkbookのところで Option Explicit Private Sub Workbook_Open() UserForm1.Show End Sub と記述するとUserForm1.Showでエラーになります。 どうすればよいでしょうか。 Excel2013で開発しています。
- 締切済み
- 情報工学
- エクセル VBAについて
Private Sub Workbook_Open() プロシージャーにてapplication.visible=falseを記述し、Userformのみ表示している状態で、違うエクセルファイルを開くと、表示されません。違うエクセルファイルを開いた時に自動でエクセルが表示できるような対象法を教えてください。お願いします。
- 締切済み
- Visual Basic
- UserForm1.Showでエラーになります。1
Thisworkbookのところで Option Explicit Private Sub Workbook_Open() UserForm1.Show End Sub とプログラミングすると UserForm1.Showでエラーになります。 どうすればよいでしょうか。 Excel2013でプログラミングしています。 UserForm1.Showもきちんと作成済みです。 エラーメッセージは、 実行時エラー’424’ オブジェクトが必要です。 と出ています。
- ベストアンサー
- 情報工学
お礼
openイベントはないのですね。 食いつく気持ちでがんばります！ありがとうございます。