返回首页
当前位置: 主页 > 精通Office > Excel教程 >

通过VBA设计excel工具栏的方法

时间:2012-07-18 21:47来源:betway必威官网www.etsupport.net 编辑:麦田守望者

如何将Excel的运行窗口改变成上篇文章中的模样,可能是一些VBA初学者最为感兴趣的部分了。其实这些并不太难,要实现分两步走,第一步,将系统默认的工具栏、菜单栏禁用掉,二是加载自定义的工具栏。

一、禁用系统默认的工具栏、菜单栏

在VBA窗口下,新建一个模块,在模块中输入以下内容:
 

Sub 隐藏常用菜单工具栏()
Application.CommandBars(1).Enabled = False
Application.CommandBars(3).Visible = False
Application.CommandBars(4).Visible = False

End Sub

Sub 显示常用菜单工具栏()
Application.CommandBars(1).Enabled = True
Application.CommandBars(3).Visible = True
Application.CommandBars(4).Visible = True
End Sub

Sub 隐藏窗口选项()
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
End With
End Sub
Sub 显示窗口选项()
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
With Application
.DisplayFormulaBar = True
End With
End Sub

然后,在VBA窗口中的——Microsoft Excel对象中,选择 ThisWorkBook,并添加以下代码
 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save ‘保存当前工作簿文档
显示常用菜单工具栏
显示窗口选项
End Sub
Private Sub Workbook_Open()
隐藏常用菜单工具栏
隐藏窗口选项
End Sub

此时,如果保存文件,启用宏,然后重新打开该Excle文件,你就会看到一个什么都没有的Excel工作窗口了。

二、添加自定义工具栏

在模块中继续添加以下代码:
 

Sub 添加工具栏()
On Error Resume Next
Application.CommandBars(“工具栏”).Delete
Dim 工具栏 As CommandBar
Dim 命令按钮 As CommandBarControl
Set 工具栏 = Application.CommandBars.Add
With 工具栏
.name = “工具栏”
.Position = msoBarTop
.Protection = msoBarNoMove
.Visible = True
Set 命令按钮 = .Controls.Add
With 命令按钮
.Caption = “保存”
.FaceId = 3
.OnAction = “保存”
.Style = msoButtonIconAndCaptionBelow
End With

Set 命令按钮 = .Controls.Add
With 命令按钮
.Caption = “退出”
.FaceId = 1640
.BeginGroup = True
.OnAction = “退出”
.Style = msoButtonIconAndCaptionBelow
End With
End With
Set 命令按钮 = Nothing
Set 工具栏 = Nothing
End Sub

以及
 

Sub 保存()
ActiveWorkbook.Save
End Sub

Sub 退出()
ActiveWorkbook.Close
End Sub

再加一段
 

Sub 删除自定义菜单和工具栏()
On Error Resume Next
Application.CommandBars(“工具栏”).Delete
End Sub
Sub 添加自定义工具栏()
添加工具栏
End Sub

再进入刚才的 ThisWorkBook,在Private Sub Workbook_BeforeClose(Cancel As Boolean)下添加
 

删除自定义菜单和工具栏

在Private Sub Workbook_Open()下添加
 

添加自定义工具栏

如此,保存文件,再次打开,你会发现当前的Excel窗口已经完全变化了。

注:文中一些方法采用的是中文名,在一些支持Unicode码编程的语言中,一些方法、变量名都可以采用中文名。
 

顶一下
(0)
0%
踩一下
(0)
0%
标签(Tag):EXCEL Excel2007 Excel技巧 Excel教程 Excel实例教程 excel2010技巧 Excel2010 Excel2003
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片