Excelの(2010)リボンで自分のメニューを作成しようとしています。VBAを使用してExcelメニューを編集できません
私は 'テスト'メニューを作成するために以下のサブを書きましたが、メニューがControls
コレクションにリストされている以外に作成されたという証拠は見つかりません。
私はコードサンプル(example、これは私のどちらでもうまくいきません)の束を他の人からも調べたので、私はすべてを正しく実行したように感じます。
私の質問は2倍だと思いますが、下のコードではYOUR Excelに新しいメニューが表示されます。
Sub CreateInterface()
Dim Controls As CommandBarControls
Dim CmdBar As CommandBarControl
Dim NewMenu As CommandBarControl
Set Controls = Application.CommandBars("Worksheet Menu Bar").Controls
Set NewMenu = Controls.Add(Type:=msoControlPopup, Temporary:=True, before:=Controls.Count)
NewMenu.Caption = "&Test"
NewMenu.Visible = True
For Each CmdBar In Controls
Debug.Print CmdBar.Caption & "|" & CmdBar.Tag
Next
End Sub
EDIT:D.O.へ
感謝私は、コードがリボンに新しいメニューを作成していない(デフォルトのもの(ホーム、インサート、ページレイアウトなど)のように)作業していることがわかります。
これは私の知る限りでは、これはメニューの1つではなく新しいメニューを作成することになっていましたが、どうすれば実際に新しいメニューを作成できますか?
私のために働いた。私はExcel 2010を持っています。 –
その場合、これは私のコードの外のExcelの設定に関連している必要があります。 – sgp667
@ D.O。お問い合わせありがとうございます – sgp667