-------------------郑家龙编绎于MS OFFICE开发文档 删除菜单和工具栏 你可以通过在现有的工具栏上右击,在弹出的自定义对话框中删除工具栏和菜单栏或者通过VBA删除他们,但是你只能通过VBA来删除弹出式菜单栏,用CommandBars集合中的Delete方法从当前CommandBars集合中删除一个已经存在的弹出式菜单栏,可以参考下面的方法: Function CBDeleteCBControl(strCBarName As String, _ strCtlName As String) On Error Resume Next Application.CommandBars(strCBarName).Controls(strCtlName).Delete End Function 注意:如果你要删除的工具栏没有在参数strCBarName中指定,在上面的函数中将不会出现错误提示,是通过On Error Resume Next这一句继续往下执行。 |
|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )
GMT+8, 2024-5-9 04:37 , Processed in 0.076395 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.