如何在Excel上查找控件的ID

Question

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

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

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

Answer 1

如果您使用>=xl2007，则可以使用ExecuteMso点击Arrange All

Sub selectMenu()
    Application.CommandBars.ExecuteMso ("WindowsArrangeAll")
End Sub

Answer 2

Windows.Arrange

参数可以是xlArrangeStyleHorizontal，xlArrangeStyleCascade，xlArrangeStyleTiled，xlArrangeStyleVertical。

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