|
くみたん さん、こんばんわ。
>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
今回は、リセット(バーを自動的に削除)する部分は作成していないので、表示→ツールバー→ユーザー設定で削除してください。
|
|