[已解决]增加菜单图标

张雄友

增加菜单图标.

最佳答案

月排行榜 / 总排行榜

zjdh

2013-12-11 18:05

Call MyButton(P, "统计", 226, "HZ")
统计： 菜单命令
226 ： 图标
HZ：   宏

Call MyButton(P, "清除", 478, "QC")
清除： 菜单命令
478 ： 图标
QC：   宏

跳转到最佳答案楼层

zjdh

add MenuItems 好像不能设置菜单的 FaceId，用以下方法可以设置：
Private Sub Workbook_Open()
    Dim P
    MenuBars(xlWorksheet).Reset
    Dim Button As CommandBarControl
    Set P = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
    P.Caption = "综合统计"
    Call MyButton(P, "统计", 226, "HZ")
    Call MyButton(P, "清除", 478, "QC")
    Call MyButton(P, "保存", 455, "BF")
End Sub
Sub MyButton(MyPopup, Caption As String, FaceId As Integer, OnAction As String)
    Set Button = MyPopup.Controls.Add(Type:=msoControlButton)
    Button.Caption = Caption
    Button.FaceId = FaceId
    Button.OnAction = OnAction
End Sub

hwc2ycy

巧了，前天也有个人发了一贴，跟你菜单是一模一样的。
用menus对象添加的菜单没有设置图标的方法与属性，换成commandbar来操作吧。

hwc2ycy

[已解决]请老师们帮帮在这个菜单上加下图标，谢谢大家了！
http://www.excelpx.com/thread-315123-1-1.html

张雄友

hwc2ycy 发表于 2013-12-11 11:23
[已解决]请老师们帮帮在这个菜单上加下图标，谢谢大家了！
http://www.excelpx.com/thread-315123-1-1.htm ...

此法不妥，要引用工作表中的内容。也不方便指定宏。

张雄友

zjdh 发表于 2013-12-11 08:46
add MenuItems 好像不能设置菜单的 FaceId，用以下方法可以设置：
Private Sub Workbook_Open()
    Dim  ...

MenuBars(xlWorksheet).Reset   这句代码把我加载项的自定义工具栏全部重置了，危害不小啊。

hwc2ycy

张雄友 发表于 2013-12-11 13:44
此法不妥，要引用工作表中的内容。也不方便指定宏。

我只是举例子，不想不停的复制粘贴，你要是会用了，直接就写进了代码里了。

zjdh

那就用
Private Sub Workbook_Open()
    Dim P
    On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("综合统计").Delete
    Dim Button As CommandBarControl
    Set P = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
    P.Caption = "综合统计"
    Call MyButton(P, "统计", 226, "HZ")
    Call MyButton(P, "清除", 478, "QC")
    Call MyButton(P, "保存", 455, "BF")
End Sub
Sub MyButton(MyPopup, Caption As String, FaceId As Integer, OnAction As String)
    Set Button = MyPopup.Controls.Add(Type:=msoControlButton)
    Button.Caption = Caption
    Button.FaceId = FaceId
    Button.OnAction = OnAction
End Sub

张雄友

zjdh 发表于 2013-12-11 16:59
那就用
Private Sub Workbook_Open()
    Dim P

这是怎么指定宏的？

张雄友

zjdh 发表于 2013-12-11 16:59
那就用
Private Sub Workbook_Open()
    Dim P

以清除为例，是不是这样指定宏的？但是测试不成功。

Private Sub Workbook_Open()
    Dim P
    On Error Resume Next
    Application.CommandBars("Worksheet Menu Bar").Controls("综合统计").Delete
    Dim Button As CommandBarControl
    Set P = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
    P.Caption = "综合统计"
    Call MyButton(P, "统计", 226, "HZ")
    Call MyButton(P, "清除", 478, "QC")
    Call MyButton(P, "保存", 455, "BF")
End Sub
Sub MyButton(MyPopup, Caption As String, FaceId As Integer, OnAction As String)
    Set Button = MyPopup.Controls.Add(Type:=msoControlButton)
    Button.Caption = Caption
    Button.FaceId = FaceId
    Button.OnAction = OnAction
End Sub

Sub 清除()
Selection.ClearContents
End Sub