|
▼kobasan さん:
おはようございます。
>CommandBars のヘルプに
>
>Add メソッド (CommandBars コレクション) の使用例
>
>次の使用例は、"ユーザー設定" というコマンド バーをウィンドウの上端に追加し、組み込みの [貼り付け] ボタンをコマンド バーに追加します。
>
>Set mybar = CommandBars _
> .Add(Name:="ユーザー設定", Position:=msoBarTop, _
> Temporary:=True)
>With mybar
> .Controls.Add Type:=msoControlButton, Id:= _
> CommandBars("Edit").Controls("Paste").ID '<===エラー発生
>
> .Visible = True
>End With
>
>とありますが、エラーが発生します。
>それで、(1)(3)では、当然エラーになります。(2)はOKです。
>
> MsgBox CommandBars("Edit").Controls("Paste").ID '(1)
> MsgBox CommandBars("Worksheet menu bar").Controls(2).Controls(5).ID '(2)
> MsgBox CommandBars("Worksheet menu bar").Controls("Edit").Controls("Paste").ID '(3)
>
>いまのところ、ID指定に、
>
> 22または、CommandBars("Worksheet menu bar").Controls(2).Controls(5).ID
>
>を使っていますが、
>
>CommandBars("Edit").Controls("Paste").ID
Msgbox _
CommandBars("Worksheet menu bar").Controls("編集(&E)").Controls("貼り付け(&P)").ID
↑これは?
|
|