想在下工具栏中，直接添加筛选组合框
BottomToolBar.Items.Add(RibbonTabs("Common").Groups("SortAndFilter").Items("Filter"))
似乎没什么反应，是用法有问题？还是说先手工在下工具栏中定义一个组合框，然后再引用？
我先在下工具栏中增加了一个菜单按钮：菜单按钮1
然后在命令窗口执行：
Dim x As RibbonMenu.MenuButton = RibbonTabs("Common").Groups("SortAndFilter").Items("Filter")
For Each y As Object In x.Items
BottomToolBar.Items("菜单按钮1").Items.add(y)
Next
问题：
1、如果某个表第一列是日期列，第二列是文本列。但选择了第一列，筛选时并未出现时段筛选项。
2、重新打开项目以后，菜单按钮没有出现下拉选项，是不是通过代码增加的只是临时的？如果把上面的代码再执行一次，又可以筛选；再重新打开，无下拉选项。
[此贴子已经被作者于2025/4/9 23:13:17编辑过]