CommandBarを表示させることができません

Question

Word（2010）で一時コマンドバーを作成するためのコードです。 Excelでも同じ結果になります。バーが作成されます。私はそれにアクセスし、そのプロパティを読んで、それを削除することができるので、私は知っています。しかし私はそれを見えるようにすることはできません。それは私のページの上のどこかに浮かぶはずですが、そうではありません。何か案は？

Sub AddCommandbar() 
    Const CmdName As String = "Test Bar" 

    Dim MyBar As CommandBar 
    Dim MyCtl As CommandBarControl 
    Dim MyList() As String 
    Dim Cmd As CommandBar 
    Dim i As Integer 

    ' delete the existing 
    For Each Cmd In CommandBars 
     If Cmd.Name = CmdName Then 
      Cmd.Delete 
      Debug.Print CmdName; " deleted" 
      Exit For 
     End If 
    Next Cmd 

    Exit Sub 
    Set MyBar = CommandBars.Add(Name:=CmdName, _ 
           Position:=msoBarFloating, _ 
           MenuBar:=True, _ 
           Temporary:=True) 
    Set MyCtl = CommandBars(CmdName).Controls.Add(_ 
           Type:=msoControlDropdown, _ 
           Before:=1) 
    MyList = Split("One,Two,Three", ",") 
    With MyCtl 
     .Caption = "Select a number" 
     .Style = msoComboLabel 
     .BeginGroup = True 
     For i = 0 To UBound(MyList) 
      .AddItem MyList(i) 
     Next i 
     .ListIndex = 1 
    End With 
    CommandBars(CmdName).Visible = True 
End Sub 

副疑問として、MenuBar:=Trueは、既存のものを追加したものと見なされます。それはしません。バーのいくつかのインスタンスが作成されます。それらはすべてがなくなるまでアクセスして削除することができます。

Answer 1

Office 2007にリボンメニューが導入されて以来、ツールバーを表示できる唯一の場所は「アドイン」リボンタブです。