エクセル97でのユーザーフォームについて

質問

エクセル97でのユーザーフォームについて教えて下さい

(1)　まず最初にユーザフォームを作成しました。
(2)　エクセルオープン時にメニューバーにボタンを追加し、そのボタンを押すと
　　ユーザーフォームが表示されてくるという風に考えました。

ユーザーフォームは表示されるのですが、フォームに配置されているボタン等を
押してもまったく利きません（本来はメッセージが表示される）
アクティブにはなっているようなのですが...

Private Sub UserForm_Activate()

End Sub

上のアクティブになった時に何か処理をもりこまなければいけないのでしょうか？
初歩的な質問で申し訳ないのですが、宜しくお願い致します。

回答No.3

nishi6

質問に書かれていることを実現？してみたら下のようになりました。

＞(2)エクセルオープン時にメニューバーにボタンを追加し、そのボタンを押すと・・・
これの『メニューバーにボタンを追加』がどのメニューバーに追加したのか、ユーザー設定なのか良く分かりませんでした。

下は、
　　Workbook_Open でオープン時にコマンドバーにボタンを追加しています。
　　そのボタンを押すとUserForm1が表示されます。
　　UserForm1のボタンを押すとメッセージボックスが表示されます。

質問どうりではないかもしれませんが、参考にして下さい。(当方、Excel97です)

ThisWorkbookのコードウインドウ
↓
Private Sub Workbook_Open()
　　Dim myCBar As CommandBar 'コマンドバー
　　Dim myCBarButton As CommandBarButton 'コマンドボタン

　　Set myCBar = Application.CommandBars("Worksheet Menu Bar")

　　With myCBar
　　　　.Reset
　　　　Set myCBarButton = .Controls.Add(msoControlButton, temporary:=True)
　　　　With myCBarButton
　　　　　　.FaceId = 584
　　　　　　.Caption = "フォーム表示"
　　　　　　.OnAction = "フォーム表示テスト"
　　　　End With
　　End With
End Sub

標準モジュールに貼り付け
↓
Sub フォーム表示テスト()
　　UserForm1.Show
End Sub

UserForm1のコードウインドウに貼り付け(CommandButton1が１つあるとします)
↓
Private Sub CommandButton1_Click()
　　MsgBox "フォームのボタンを押しました"
End Sub

回答No.2

imogasi

ユーザーフォームを挿入し、ＶＢＰrojectの
ThisWorkbookをクリックして、WorkbookのOpenイベントを選び
Private Sub Workbook_Open()
UserForm1.Show
End Sub
---
UserForm1をクリックしてCommandButton1のClickイベントを選び
Private Sub CommandButton1_Click()
MsgBox "ボタンが押された"
End Sub
----
一旦Ｂｏｏｋを保存して、開くとUserformが表示され、
ボタンをクリックするとMsgBoxが表示されました。
エクセル２０００ですが。
Private Sub UserForm_Activate() End Subは不要で
CommandButton1_Click()のところで処理を記述しては
どうですか。

回答No.1

p-21

状況がイマイチ良くわかりませんが
ボタンを押すとファームが出現で良いのでしょうか？

Sub macro1()

Userform1.Show

End sub

ではないでしょうか？

ブック起動時にファーム出現であれば
This　Workbookのところで

Private Sub Workbook_Open()

Userform1.Show
End Sub

となりますが　（97はあまり使わないので2000のものですが
ブックオープンイベントでは少し違うかもしれません）