2012年05月28日

Excel2010 VBAの怪: Application.CommandBars("Cell") .Controls.Add(Type:=msoControlEdit) とやっても 何も追加されない!

Sub AddMenu()

Application.CommandBars("Cell").Reset

Dim Newb

Set Newb = Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton)
With Newb
.Caption = "独自のコマンド1"
End With

Set Newb = Application.CommandBars("Cell").Controls.Add(Type:=msoControlEdit)
With Newb
.Caption = "独自のコマンド2"
End With

Set Newb = Application.CommandBars("Cell").Controls.Add(Type:=msoControlButton)
With Newb
.Caption = "独自のコマンド3"
End With

End Sub


上記のマクロを
Excel2003上で実行すると以下のように3つのメニューが追加される。
command12012-05-28_215803.png

そして問題のExcel2010では
command22012-05-28_215840.png
2番目の Type:=msoControlEdit に相当するメニューが追加されていないし、エラーにもならない。

誰かマイクロソフトにバグ報告をしてください


なお、コード検証に協力していただいた方、メニューを消し去るには以下の1行だけを実行してください。


Application.CommandBars("Cell").Reset


マクロから追加したメニューはきれいさっぱりなくなります。

タグ:バグ発見
この記事へのトラックバックURL
http://blog.sakura.ne.jp/tb/56119541
※言及リンクのないトラックバックは受信されません。

この記事へのトラックバック
この記事へのコメント
コメントを書く
お名前: [必須入力]

メールアドレス:

ホームページアドレス:

コメント: [必須入力]

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。

・おすすめ楽天ショップ1:trendyimpact楽天市場店
・おすすめサプリショップ:iHerb.com
・おすすめ楽天ショップ2:上海問屋
Powered by さくらのブログ