vba - 无法使 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 中引入功能区菜单以来，您可以显示工具栏的唯一位置是“加载项”功能区选项卡上。