综合别人的提问，帮助文档，我自己改进了一下：在页面的afterload事件中，输入
Dim btn As RibbonMenu.RibbonItem
btn = RibbonTabs("A").Groups("AA").Items("AAA")
btn.ForeColor = color.SaddleBrown
在页面的afterclose事件中，输入
Dim btn As RibbonMenu.RibbonItem
btn = RibbonTabs("A").Groups("AA").Items("AAA")
btn.ForeColor = color.Transparent
解决！不过还有一个问题，就是再增加一级按钮的话，颜色设置不管用，无论是用代码还是人工设置都不行，请狐爸看看是什么原因。
比如btn1 = RibbonTabs("A").Groups("AA").Items("AAA").Items("AAAA")
btn1.ForeColor = color.SaddleBrown
这个设置就没有任何反应，当时以为是代码的原因，后来发现手动设置代码也不行。我的是2014版，新版我还没试，不知有没有完善？
加好友 
发短信
Post By：2017/12/8 10:55:00 [显示全部帖子]
