主题：如何在进入系统后，自动执行某项菜单？

• PerformClick
  模拟单击该按钮。

示例

Dim btn As RibbonMenu.Button
btn = RibbonTabs("Common").Groups("Data").Items("DeleteRow")
btn.PerformClick()

如果你用的是系统菜单，执行上面的代码会删除选定行，因为这段代码模拟单击删除行按钮。