|
neptune さん ありがとうございます
>昔書いた奴ですが、必要なところだけとって使えませんか?
メニュー一覧が取得できました
ユーザー登録のメニューも取得できるんですね!
上記と
>若しくは
で、
>>登録されていたら、
の判定が出来ました
Public Sub ggg2()
Dim wksheet As Worksheet
Dim mnu
On Error Resume Next
Set wksheet = Worksheets("Sheet1")
On Error Resume Next
Set mnu = Application.CommandBars("Worksheet Menu Bar").Controls("JOB担当登録一覧表")
If Err.Number <> 0 Then
MsgBox "ないよ"
Else
MsgBox "あるよ"
End If
On Error GoTo 0
End Sub
>メニューで非表示って出来ましたっけ?
は
Application.CommandBars("Worksheet Menu Bar").Controls("JOB担当登録一覧表").Visible = False
で、出来ました
コードをご提示頂き、希望の操作が適いました
おかげさまで、いろいろ勉強できました ありがとうございました
皆様、ありがとうございました。
本件はこれで解決です
ちょっと脱線ですが
最近、自宅でvista office2007を購入しましたが、
アクセス、エクセル共、メニューバー、コマンドバーがわからずお手上げに近いですが
>昔書いた奴ですが、必要なところだけとって使えませんか?
を試したところ、メニュー一覧が取得できました
ユーザーメニュー登録もできましたが、
メニューバーにアドインのタブが追加され
それを押すと
メニューコマンド て フレーム?にユーザ登録メニュがありました
アドインタブの追加でなく、ここにユーザ登録メニュを追加することは可能なのでしょうか
2007の操作自体よくわかっていません
簡単にコメント頂けるとうれしいです
よろしくお願いいたします
|
|