1

我必须编写 VBA 脚本才能从代码中的菜单栏中选择任何项目,但它不起作用。

请在代码下方找到并建议正确的代码。

Sub selectMenu()
    Application.CommandBars("Worksheet Menu Bar").Controls("View").Controls("Arrange All").Execute
End Sub
4

2 回答 2

2

如果您正在使用,>=xl2007那么您可以使用ExecuteMso来单击Arrange All

Sub selectMenu()
    Application.CommandBars.ExecuteMso ("WindowsArrangeAll")
End Sub
于 2013-03-28T15:35:35.280 回答
0
Windows.Arrange

参数可以是xlArrangeStyleHorizontal, xlArrangeStyleCascade, xlArrangeStyleTiled,中的任何一个xlArrangeStyleVertical

参考:(http://msdn.microsoft.com/en-us/library/office/aa221833 (v=office.11​​).aspx )

于 2013-03-28T15:44:50.950 回答