帮助文档1501页:
Dim ng As New RibbonMenu.Group("Filter") '定义新的功能组
ng.Text = "筛选" '设置功能组标题
RibbonTabs("实战演练").Groups.Add(ng) '将功能组加入实战演练功能区
With RibbonTabs("Common").Groups("SortAndFilter")
ng.Items.Add(.Items("Filter")) '添加筛选按钮
ng.Items.Add(.Items("SelectFilter")) '添加选择按钮
ng.Items.Add(.Items("Expression")) '添加编辑按钮
ng.Items.Add(.Items("UnFilter")) '添加撤销按钮
ng.Items.Add(.Items("Separator")) '添加分隔条
ng.Items.Add(.Items("Toggle")) '添加切换按钮
End With
执行后提示不存在”Expression",请更改。
另外这段在命令窗口连续运行可增加多个功能组,ng.Name提示只读,有其他方法思路对同一个功能组修改吗?