我必须编写 VBA 脚本才能从代码中的菜单栏中选择任何项目,但它不起作用。
请在代码下方找到并建议正确的代码。
Sub selectMenu()
Application.CommandBars("Worksheet Menu Bar").Controls("View").Controls("Arrange All").Execute
End Sub
如果您正在使用,>=xl2007
那么您可以使用ExecuteMso
来单击Arrange All
Sub selectMenu()
Application.CommandBars.ExecuteMso ("WindowsArrangeAll")
End Sub
Windows.Arrange
参数可以是xlArrangeStyleHorizontal
, xlArrangeStyleCascade
, xlArrangeStyleTiled
,中的任何一个xlArrangeStyleVertical
。
参考:(http://msdn.microsoft.com/en-us/library/office/aa221833 (v=office.11).aspx )