Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


39062 / 76732 ←次へ | 前へ→

【42791】Re:コマンドボタンの設定について
回答  りん E-MAIL  - 06/9/21(木) 22:51 -

引用なし
パスワード
   くみたん さん、こんばんわ。

>OnActionプロパティを見たのですがよく理解できません。
>もう少し簡単なサンプルがあればありがたいのですが。お願いします。

下のコードを標準モジュールにコピーし、Mainを実行すると「てすとBar」という新しいツールバーが出来ます。そこのボタンをクリックするとメッセージが出ます。

Sub Main()
  Dim cb As CommandBar, cbc As CommandBarButton, cbn As String
  cbn = "てすとBar"
  '既存なら削除
  On Error Resume Next
  Application.CommandBars(cbn).Delete
  On Error GoTo 0
  '新規コマンドバー作成
  Set cb = Application.CommandBars.Add(cbn)
  'ボタンを追加
  Set cbc = cb.Controls.Add(Type:=msoControlButton) 'ボタン
  With cbc
   .Caption = "ちぇけらー"
   .Style = msoButtonCaption
   .OnAction = "CheckItOut"
  End With
  '作ったコマンドバーを表示
  cb.Visible = True
  '終了
  Set cbc = Nothing: Set cb = Nothing
End Sub
'ボタンを押したらこれが実行される
Private Sub CheckItOut()
  MsgBox Now(), vbExclamation, "ちぇけらー"
End Sub


今回は、リセット(バーを自動的に削除)する部分は作成していないので、表示→ツールバー→ユーザー設定で削除してください。

0 hits

【42786】コマンドボタンの設定について くみたん 06/9/21(木) 21:13 質問
【42788】Re:コマンドボタンの設定について りん 06/9/21(木) 21:43 発言
【42789】Re:コマンドボタンの設定について くみたん 06/9/21(木) 22:15 質問
【42791】Re:コマンドボタンの設定について りん 06/9/21(木) 22:51 回答
【42792】Re:コマンドボタンの設定について ponpon 06/9/21(木) 22:57 発言
【42793】Re:コマンドボタンの設定について くみたん 06/9/21(木) 23:06 回答
【42795】Re:コマンドボタンの設定について りん 06/9/21(木) 23:30 発言
【42796】Re:コマンドボタンの設定について ponpon 06/9/21(木) 23:35 発言
【42797】Re:コマンドボタンの設定について くみたん 06/9/21(木) 23:48 お礼
【42803】Re:コマンドボタンの設定について Jaka 06/9/22(金) 9:35 発言

39062 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free