VBA语句官网只有切换菜单栏状态ToggleRibbon(),我们思路是判断如果菜单栏大于某个值,即展开菜单栏的情况下,调用切换菜单栏状态实现隐藏
var ribbonHeight = obj.ActiveDocument.CommandBars("Ribbon").Height;
if(ribbonHeight&&ribbonHeight>=120){
obj.ActiveDocument.ActiveWindow.ToggleRibbon()
}