如何动态构造文本框对象引用？

Question

我问了一个类似的问题Here，现在我需要再次做同样的事情，但这次是在Excel 2010中使用VBA。

基本上我有许多带有通用名称的文本框（即textbox1，textbox2等）。如何以编程方式构造对象引用，以便创建循环？

修改 它是工作表上的常规文本框。当我为这个工作表启动一个sub时，我可以使用以下行引用文本框：

TextBox1.LinkedCell = "B2"

Answer 1

这是你的事后：

Dim oleObj As OLEObject
'Dim oleTxtBox As TextBox

For Each oleObj In Sheet1.OLEObjects
    If oleObj.OLEType = xlOLEControl Then
        If Mid(oleObj.progID, 1, 14) = "Forms.TextBox." Then
            Set oleTxtBox = oleObj.Object
            oleTxtBox.PasswordChar = "*"
        End If
    End If
Next

仅使用PasswordChar作为TextBox对象中的示例字段，但它实际上不会将Dim作为TextBox