|
▼kobasan さん:
今晩は。
CommandBars("Worksheet Menu Bar").Controls(2).Controls(10).Enabled = True
で実行したら”削除”機能が上手くActiveに変更できました。
ありがとうございました。
>>アクティブ(使えるよう)にしたい場合、
>>-----------------------------------------
>>Public Sub menubar()
>>Controls(2).Controls(10).Enabled = True
>>End Sub
>>としましたら、コンパイルエラーが発生し、[SubまたはFunctionが定義されていません]とのメッセージが出ます。このコードの前に何か書いておくべき事はありますか?
>
>このコードの前に何か書いておくべき事は、
>
>【41759】のサンプルなら、CommandBarsに"New_Bar"という名前を付けていますので、
>また、定義した1列目の2行目のボタンをアクティブにしたり、グレー表示にしたりす
>るので、Controls(1).Controls(2)を使います。
> ~~~~~~~~~~ ~~~~~~~~
> 1列目 2行目
>
>もし、katchin さんが CommandBars でなく Worksheet Menu Bar を使っているな>ら、CommandBars("Worksheet Menu Bar").Controls(1).Controls(2).Enabled =False
>のようにします。
>ただし、このときのControls(1).Controls(2)の数字は、適切なものにする必要があります。
|
|