[已解决]为什么我这个自定义菜单的字体显示不出来？

hamsik11

哪位老师帮我看看啊，刚开始学习弄这个东西...........，我用caption来设置应该呈现两个button分别为title1，title2，可为啥显示不出来？

谢谢谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-6 16:12

1. Public Sub CreateMenu()
   
2. Dim MyMenu As Object
   
3. On Error Resume Next
   
4. Application.CommandBars("统计").Delete
   
5. On Error GoTo 0
   
6. 
   
7. Set MyMenu = Application.CommandBars.Add(Position:=3)
   
8.     With MyMenu
   
9.          .Visible = True
   
10.          .Name = "统计"
    
11.    
    
12.          
    
13.           For i = 1 To 2
    
14.                  Set mycon = .Controls.Add(Type:=msoControlPopup)
    
15.                     With mycon
    
16.                       .Visible = True
    
17.                       .Caption = "title" & i
    
18.                       .OnAction = "yy"
    
19.                     End With
    
20.           Next
    
21.     End With
    
22. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Public Sub CreateMenu()
   
2. Dim MyMenu As Object
   
3. On Error Resume Next
   
4. Application.CommandBars("统计").Delete
   
5. On Error GoTo 0
   
6. 
   
7. Set MyMenu = Application.CommandBars.Add(Position:=3)
   
8.     With MyMenu
   
9.          .Visible = True
   
10.          .Name = "统计"
    
11.    
    
12.          
    
13.           For i = 1 To 2
    
14.                  Set mycon = .Controls.Add(Type:=msoControlPopup)
    
15.                     With mycon
    
16.                       .Visible = True
    
17.                       .Caption = "title" & i
    
18.                       .OnAction = "yy"
    
19.                     End With
    
20.           Next
    
21.     End With
    
22. End Sub

复制代码

hamsik11

hwc2ycy 发表于 2013-1-6 16:12

谢谢老师，这两个能不能上下放置？

hwc2ycy

我再试试吧。

hwc2ycy

上下放置没试出来，以后有答案了再来贴。

1. Sub AddCommandbar()
   
2.     Dim i As Byte
   
3.     'For i = 0 To 6
   
4.     On Error Resume Next
   
5.     Application.CommandBars("hwc2ycy").Delete
   
6.     Application.CommandBars.Add "hwc2ycy", 1, , True
   
7. 
   
8.     Application.CommandBars("hwc2ycy").Visible = True
   
9.     With Application.CommandBars("hwc2ycy").Controls
   
10.         With .Add(1, , , , True)
    
11.             .Caption = "button1"
    
12.             .Visible = True
    
13.             .Style = msoButtonIconAndCaption
    
14.             .FaceId = 11
    
15.             .OnAction = "test"
    
16.         End With
    
17.         With .Add(1, , , , True)
    
18.             .Caption = "button2"
    
19.             .Visible = True
    
20.             .Style = msoButtonIconAndCaption
    
21.             .FaceId = 22
    
22.             .OnAction = "test"
    
23.         End With
    
24.         With .Add(1, , , , True)
    
25.             .Caption = "button3"
    
26.             .Visible = True
    
27.             .Style = msoButtonIconAndCaption
    
28.             .FaceId = 44
    
29.             .OnAction = "test"
    
30.         End With
    
31.     End With
    
32. End Sub
    
33. 
    
34. Sub test()
    
35.     MsgBox "test1"
    
36. End Sub

复制代码