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

hhzjxss

运行后的效果：

[此贴子已经被作者于2007-8-19 9:07:33编辑过]

hhzjxss

QUOTE:

以下是引用ken3在2007-3-30 17:18:44的发言：

里面有些代码是多余的：

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

全部不要，还是红色的不要！

aichong

以前用过一个绿色软件“超强最小化”，它可以在窗口上再加上个按钮，通过点击可以将打开的窗口最小化到任务栏中，楼主可以试一下。

 天空软件下载：http://www.skycn.com/soft/24956.html

sihao

不错，aichong版主说的那个感觉比那个xla实用

[此贴子已经被作者于2007-10-7 18:30:30编辑过]

白天睡觉

放到系统托盘有什么好处吗?

我感觉好像没什么用.

飞云楼主

试用一下

binghuan0730

可以用，不过最小化的时候点EXCEL里的“窗口最小化”才到右下角的系统托盘里

xmyjk

挺有趣的，谢谢分享。

98zys

好是挺好的，可是不能提示保存哦……

wh1272

能只对一个excel文件最小到托盘吗！而不是所有后打开的excel文件？