[推荐]最小化Excel到系统托盘

BOLOLBO

WIN2000 测试未通过

最小化无法显示到右下角

yuanzhuping

谢谢楼主分享!

WHGF

原来还可这样用,学会了一招

ken3

里面有些代码是多余的：

Sub ExcelbaZy()
    StartDoc "http://www.excelba.com"
End Sub

Sub Menu_Del()
Dim N, i
N = Application.CommandBars("Document").Controls.Count
For i = 1 To N
    '当发现右键菜单中有"隐藏(&H)"项时将其删除
    If Application.CommandBars("Document").Controls(i).Caption = "隐藏(&H)" Then
        Application.CommandBars("Document").Controls(i).Delete
        Exit For
    End If
Next
N = Application.CommandBars("Document").Controls.Count
For i = 1 To N
    If Application.CommandBars("Document").Controls(i).Caption = "Excel 吧(&E)" Then
        Application.CommandBars("Document").Controls(i).Delete
        Exit For
    End If
Next
End Sub

Sub Menu_Add()
Dim N, i, Cmb As CommandBarControl
N = Application.CommandBars("Document").Controls.Count
For i = 1 To N
    If Application.CommandBars("Document").Controls(i).Caption = "隐藏(&H)" Then
        Exit Sub
    End If
Next

Set Cmb = Application.CommandBars("Document").Controls.Add(Type:=msoControlButton, before:=N)
With Cmb
      .BeginGroup = True
      .Caption = "隐藏(&H)"
      .OnAction = "hideHwnd"
      .FaceId = 597
      .Visible = True
End With
Set Cmb = Application.CommandBars("Document").Controls.Add(Type:=msoControlButton, before:=N + 1)
With Cmb
    .Caption = "Excel 吧(&E)"
    .OnAction = "excelbazy"
    .FaceId = 263
End With
End Sub

office-fans

的确是个好东西,谢谢分享![em02]

sanjiang

加载宏的代码如何才能添加到所需的xls文件上？

ybl-307

好东东！

试用了！

sanjiang

QUOTE:

以下是引用sanjiang在2007-3-31 8:23:19的发言：
加载宏的代码如何才能添加到所需的xls文件上？

很难吗？你会吗？

TGB

什么东东。。。。。。。。。。。。

yxy博

看看........