您的位置: 首页 > 软件教程 > Excel 2007教程专题 > 在Excel 2007中实现老式工具栏

Excel 2007教程专题

精品软件课程
更多 >
Word是由Microsoft公司出版的文字... [详细]
Excel是office的重要组成部分。多特... [详细]
PPT(PowerPoint)是Office... [详细]
Word是由Microsoft公司出版的文字... [详细]
Word是由Microsoft公司出版的文字... [详细]
在Excel 2007中实现老式工具栏 7.8分
出处:网络 时间:2011-08-04

您可能感兴趣的话题: Excel 2007  

核心提示:如果想在Excel 2007中创建一个工具栏,应注意下面的一些限制

  Excel2007中老式工具栏的限制

  如果想在Excel 2007中创建一个工具栏,应注意下面的一些限制:

  不能够自由浮动

  总是显示在加载项选项卡自定义工具栏组中

  Excel会忽略一些CommandBar的属性和方法

  创建工具栏的代码

  这里的代码假定有一个带有两个名为Macro1和Macro2宏的工作簿,并且在该工作簿打开时创建这个工具栏,在关闭该工作簿时删除这个工具栏。

  注意,与Ribbon定制不同,不管当前是哪个工作簿,自定义工具栏者是可见的。

  在ThisWorkbook代码模块中,输入下面的过程。第一个过程为在打开工作簿时调用创建工具栏的过程,第二个过程为在关闭工作簿时调用删除工具栏的过程。

Private Sub Workbook_Open()
  Call CreateToolbar
End SubPrivate>

Sub Workbook_BeforeClose(Cancel As Boolean)
  Call DeleteToolbar
End Sub 过程CreateToolbar的代码如下:
Const TOOLBARNAME As String = "我的工具栏"
Sub CreateToolbar()
  Dim TBar As CommandBar
  Dim Btn As CommandBarButton>

  '如果存在则删除已存在的工具栏

  On Error Resume Next
  CommandBars(TOOLBARNAME).Delete
  On Error GoTo 0>

  '创建工具栏

  Set TBar = CommandBars.Add
  With TBar
    .Name = TOOLBARNAME
    .Visible = True
  End With>

  '添加按钮

  Set Btn = TBar.Controls.Add(Type:=msoControlButton)
  With Btn
    .FaceId = 300
    .OnAction = "Macro1"
    .Caption = "这里是Macro1的提示"
  End With
>  

  '添加另一个按钮

  Set Btn = TBar.Controls.Add(Type:=msoControlButton)
  With Btn
    .FaceId = 25
    .OnAction = "Macro2"
    .Caption = "这里是Macro2的提示"
  End With
End Sub
>图1显示了带有这两个按钮的工具栏。

在Excel 2007中实现老式工具栏

1:一个老式工具栏,位于加载项选项卡的自定义工具栏中

  代码中使用了一个模块级的常量TOOLBARNAME,用来存储工具栏的名称,并用于这两个过程中。

  如果已存在具有相同名字的工具栏,则该过程先删除该工具栏。这样将会避免企图创建与已存在的工具栏有相同名称的工具栏时,产生错误。

  通过使用CommandBars对象的Add方法来创建该工具栏,使用Controls对象的Add方法来添加两个按钮,每个按钮都有三个属性:

  FaceID:确定显示在按钮中的图像的数字。

  OnAction:在单击按钮时执行的宏。

  Caption:鼠标指针悬浮在按钮上时显示的屏幕提示。

  技巧:不仅可以设置FaceID属性,还可以设置Picture属性,使用任何的imageMso图像。例如,下面的语句晶粒示一个绿色的勾号:

PLAIN TEXT
Visual Basic:
.Picture = Application.CommandBars.GetImageMso _
("AcceptInvitation", 16, 16)
>关于imageMso图像的更多信息,请参见“定制RibbonX”。

  在关闭工作簿时,触发Workbook_BeforeClose事件过程,调用过程DeleteToolbar:

Sub DeleteToolbar()
  On Error Resume Next
  CommandBars(TOOLBARNAME).Delete
  On Error GoTo 0
End Sub>

网友评论
多特网友 2012-09-11 09:18:49 回复
2007软件制表操作
多特网友 2012-09-11 09:18:49 回复
2007软件制表操作
多特网友 2012-09-29 11:08:30 回复
d太复杂了,怎么就设置成03版的那么简单呢
多特网友 2012-09-29 11:08:30 回复
d太复杂了,怎么就设置成03版的那么简单呢