[已解决]菜单－添加菜单求助

yjwdjfqb

菜单－添加菜单求助

请老师们帮帮忙，谢谢老师们了！



菜单－添加菜单求助.rar (6.43 KB, 下载次数: 6)

2013-12-13 09:41 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-12-13 10:26

菜单－添加菜单求助.rar (13.42 KB, 下载次数: 12)

2013-12-13 10:26 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

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

hwc2ycy

那个贴子不是就是你发的么。
要学会举一反三，触类旁通。

hwc2ycy

1.         With .Controls.Add(msoControlPopup, , , , True)
   
2.             .Caption = "菜单实例壹之单按钮叁(&C)"      '菜单按钮的名称
   
3.             '.Style = msoButtonIconAndCaption
   
4.             '.FaceId = 263      '菜单按钮的图标
   
5.             With .Controls.Add(msoControlButton, , , , True)
   
6.                 .Caption = "1"
   
7.                 .FaceId = 2
   
8.             End With
   
9.             With .Controls.Add(msoControlButton, , , , True)
   
10.                 .Caption = "1"
    
11.                 .FaceId = 2
    
12.             End With
    
13.             With .Controls.Add(msoControlButton, , , , True)
    
14.                 .Caption = "1"
    
15.                 .FaceId = 2
    
16.             End With
    
17.         End With

复制代码

hwc2ycy

msoControlPopup的类型的不支持faceid。

yjwdjfqb

hwc2ycy 发表于 2013-12-13 10:16
msoControlPopup的类型的不支持faceid。

就是出现了这样的提示

hwc2ycy

菜单－添加菜单求助.rar (13.42 KB, 下载次数: 12)

2013-12-13 10:26 上传

点击文件名下载附件

yjwdjfqb

hwc2ycy 发表于 2013-12-13 10:26

谢谢版主，辛苦了！