
excel
VBASub GenerateMenus()'生成第一级菜单For i = 1 To 3Sheets("Sheet1").Shapes.AddShape(1, msoLine, 0, 0).Left = i * 100Next i'生成第二级菜单For i = 1 To 3Sheets("Sheet1").Shapes("第一级菜单").Range.TextFrame.TextRange.InsertText i, "第二级菜单", "第二级菜单"Next iEnd Sub
在以上代码中,首先通过循环在“Sheet1”工作表上创建了三个第一级菜单项。然后,在每个第一级菜单项旁边插入了相应的文本框,用于显示第二级菜单选项。当运行这个VBA脚本后,就会在“Sheet1”工作表上生成三个第一级菜单项和它们对应的三个第二级菜单选项。这个示例代码只是一个简单的示例,你可以根据实际需求进行修改和扩展。例如,你可以在循环中加入更多第一级菜单项或者在插入文本框时设置它们的宽度和高度等等。希望对你有所帮助!Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号