| |
いつも大変お世話になっております。
以前、メニューバーの追加について質問させていただきましたが
追加後、Excelを閉じずにまた同じExcelを開くと
またメニューが追加されてしまいます。
メニューバーの多重追加を防ぎたいのですがどうぞご教授していただけないでしょうか？
宜しくお願いいたします。
下記のようにAuto_Open()でメニューがあるかチェックはしてみましたが
エラーになってしまいました。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub Auto_Open()
If CommandBars("worksheet menu bar").Controls.Count = 12 And _
CommandBars("worksheet menu bar").Controls(12).Caption = "test" Then
MsgBox "testがすでに追加されている"
Else
'メニューの追加
Dim menu1 As CommandBar
Dim menu2 As CommandBarControl
Set menu1 = Application.CommandBars("worksheet menu bar")
Set menu2 = menu1.Controls.AddType:=msoControlPopup,
Temporary:=True)
menu2.Caption = "test"
With menu2
.Controls.Add Type:=msoControlButton
With .Controls(1)
.Caption = "tmp1"
.OnAction = "FormAct"
End With
End With
End If
End Sub
|
|
