[求助]让我的工具栏菜单横着放

xiaocui1979

已经基本上达到我的满意，但是如果我想通过传参数把打印和打印预览都放在一起，参数应该如何带呢？

Sub 宏1()
    添加工具栏 "我的工具栏", "获取文件名", "获得文本文档的文件名", 11
    添加工具栏 "我的工具栏", "数据整理", "命令", 333
End Sub
Sub 宏2()
    删除工具栏 "我的工具栏"
End Sub
Sub 添加工具栏(a, b, c, d As Integer)
    Dim bookName As String
    bookName = ActiveWorkbook.Name
    On Error Resume Next
   
    Dim 工具栏 As CommandBar
    Set 工具栏 = CommandBars(a)
    If 工具栏 Is Nothing Then
        Set 工具栏 = CommandBars.Add(a)
        With 工具栏
            .Name = a
            .Position = msoBarTop
            .Protection = msoBarNoMove
            .Visible = True
        End With
    End If
    With 工具栏.Controls.Add
        .Caption = b
        '.BeginGroup = True
        .OnAction = bookName & "!" & c
        .FaceId = d
        .Style = msoButtonIconAndCaptionBelow
    End With
End Sub
Sub 删除工具栏(a)
    On Error Resume Next
    Application.CommandBars(a).Delete
End Sub

即在宏1里面再加上两句 添加 打印和打印预览 两个命令 可以通过我写的参数吗？

2.    Set customBar = Nothing 是什么意思呀！ 不加会有什么影响呢？

我的程序写完有你们的功劳 感谢了 呵呵

BobPan

QUOTE:

以下是引用xiaocui1979在2007-11-28 17:43:01的发言：

已经基本上达到我的满意，但是如果我想通过传参数把打印和打印预览都放在一起，参数应该如何带呢？

Sub 宏1()
    添加工具栏 "我的工具栏", "获取文件名", "获得文本文档的文件名", 11
    添加工具栏 "我的工具栏", "数据整理", "命令", 333
End Sub
Sub 宏2()
    删除工具栏 "我的工具栏"
End Sub
Sub 添加工具栏(a, b, c, d As Integer)
    Dim bookName As String
    bookName = ActiveWorkbook.Name
    On Error Resume Next
   
    Dim 工具栏 As CommandBar
    Set 工具栏 = CommandBars(a)
    If 工具栏 Is Nothing Then
        Set 工具栏 = CommandBars.Add(a)
        With 工具栏
            .Name = a
            .Position = msoBarTop
            .Protection = msoBarNoMove
            .Visible = True
        End With
    End If
    With 工具栏.Controls.Add
        .Caption = b
        '.BeginGroup = True
        .OnAction = bookName & "!" & c
        .FaceId = d
        .Style = msoButtonIconAndCaptionBelow
    End With
End Sub
Sub 删除工具栏(a)
    On Error Resume Next
    Application.CommandBars(a).Delete
End Sub

即在宏1里面再加上两句 添加 打印和打印预览 两个命令 可以通过我写的参数吗？

2.    Set customBar = Nothing 是什么意思呀！ 不加会有什么影响呢？

我的程序写完有你们的功劳 感谢了 呵呵

直接加入就可以了

工具栏.Controls.Add msoControlButton, 109
工具栏.Controls.Add msoControlButton, 2521

Set customBar = Nothing，是释放对象

xiaocui1979

恩 我是直接加的 因为我的按钮都有文字显示，而打印和打印预览没有文字显示，特别不协调，所以...... 那应该有其它办法给他们加文字吧

BobPan

建议多看看自带的帮助文件

With 工具栏.Controls.Add(msoControlButton, 109)
    .Style = msoButtonIconAndCaptionBelow
End With
With 工具栏.Controls.Add(msoControlButton, 2521)
    .Style = msoButtonIconAndCaptionBelow
End With

jdmlw

谢谢！各位幸苦了