| |
▼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"という名前を付けていますので、
>また、定義した１列目の２行目のボタンをアクティブにしたり、グレー表示にしたりす
>るので、Controls(1).Controls(2)を使います。
> ~~~~~~~~~~ ~~~~~~~~
> １列目 ２行目
>
>もし、katchin さんが CommandBars でなく Worksheet Menu Bar を使っているな>ら、CommandBars("Worksheet Menu Bar").Controls(1).Controls(2).Enabled =False
>のようにします。
>ただし、このときのControls(1).Controls(2)の数字は、適切なものにする必要があります。
|
|
katchin
- 06/8/25(金) 15:32 -
