vba - Excel VBA : how to cast a generic control object into a ComboBox object?

我需要将通用VBA表单控件对象转换为ComboBox对象，以便可以向其中添加项目。通用对象不允许我将项目插入到现有列表中

Dim ctlCurrent As MSForms.Control
For Each ctlCurrent In frmItemInput.Controls
    If TypeName(ctlCurrent) = "ComboBox" Then
         Dim lbCurrentComboBox As MSForms.ComboBox
         lbCurrentComboBox = ctlCurrent 'This is where the error occurs, when I try to convert one into another

         ' Adiciona os itens necessários
         lbCurrentComboBox.AddItem ("R")
         lbCurrentComboBox.AddItem ("D")
    End If
Next ctlCurrent

我的问题是:我的表格中有大量的ComboBox，我需要为所有这些添加相同的选项。因此，我希望以编程方式进行此操作。

最佳答案

您可以使用SET“播送” VBA对象，例如:

SET lbCurrentComboBox = ctlCurrent