能用VBA给Ribbon中添加的ComboBox控件添加选项吗

llyzfgq

用Office RibbonX Editor在Excel 2016中创建的文件中添加了一个选项卡，选项卡中添加了ComboBox控件，这个控件如何动态添加或删除item呢？谢谢了。

smsn

1. Dim myRibbon As IRibbonUI
   
2. 
   
3. Sub Initialize(ribbon As IRibbonUI)
   
4.     Set myRibbon = ribbon
   
5. End Sub
   
6. 
   
7. Sub Combo3_getItemCount(control As IRibbonControl, ByRef returnedVal)
   
8.     returnedVal = 10 'combobox item 个数
   
9. End Sub
   
10. 
    
11. ' getItemID (invalidated后读取10次)
    
12. Public Sub Combo3_getItemID(control As IRibbonControl, index As Integer, ByRef id)
    
13.     id = "ComboboxItem" & index + 1
    
14. End Sub
    
15. 
    
16. 'getItemLabel  (invalidated后读取10次)
    
17. Sub Combo3_getItemLabel(control As IRibbonControl, index As Integer, ByRef returnedVal)
    
18.     returnedVal = Cells(index + 1, 1) & index + 1 '读取A列文本
    
19. End Sub
    
20. 
    
21. 'Combo3 getText
    
22. Sub Combo3_getText(control As IRibbonControl, ByRef returnedVal)
    
23.     returnedVal = ""
    
24. End Sub
    
25. 
    
26. 'Combo3 onChange
    
27. Sub Combo3_onChange(control As IRibbonControl, text As String)
    
28.     MsgBox "You have chosen " & text
    
29. End Sub
    
30. 
    
31. Sub UpdateCombo3()
    
32.     myRibbon.InvalidateControl "Combo3" '清除combobox缓存，更新菜单
    
33. End Sub

复制代码

Ribbon 生成器：
https://club.excelhome.net/thread-1655755-1-1.html

llyzfgq

非常感谢，我看看去

WANT-T

一般来说就这几个回调，就够用了

smsn

给你个示例。

mythqiu

学习了，记号，记得下载下来研究，robbin combobox