| |
今晩は。
>アクティブ（使えるよう）にしたい場合、
>-----------------------------------------
>Public Sub menubar()
>Controls(2).Controls(10).Enabled = True
>End Sub
>としましたら、コンパイルエラーが発生し、[SubまたはFunctionが定義されていません]とのメッセージが出ます。このコードの前に何か書いておくべき事はありますか？
このコードの前に何か書いておくべき事は、
【41759】のサンプルなら、CommandBarsに"New_Bar"という名前を付けていますので、
また、定義した１列目の２行目のボタンをアクティブにしたり、グレー表示にしたりす
るので、Controls(1).Controls(2)を使います。
~~~~~~~~~~ ~~~~~~~~
１列目 ２行目
CommandBars("New_Bar").Controls(1).Controls(2).Enabled =False
とします。
katchin さんがCommandBarsにつけている名前に合わせて、やってみてください。
もし、katchin さんが CommandBars でなく Worksheet Menu Bar を使っているなら、
CommandBars("Worksheet Menu Bar").Controls(1).Controls(2).Enabled =False
のようにします。
ただし、このときのControls(1).Controls(2)の数字は、適切なものにする必要があります。
|
|
kobasan
- 06/8/23(水) 21:45 -
