Excel 选择具有变量名称的属性

我发现上面的代码有语法错误，请有人帮我指定一个属性名作为变量，这样我就可以通过for循环运行它，将其应用于多个标签

---

谢谢。

如果是表单控件，那么：

Dim i As Integer
i = 1
ActiveWorkbook.Worksheets(1).Label & i.Caption = "Checked"

如果是ActiveX控件：

ActiveWorkbook.Worksheets(1).Shapes("Label " & i).TextFrame.Characters.Text  = "Checked"

---

你想干什么？

ActiveWorkbook.Worksheets(1).OLEObjects("Label" & i).Object.Caption = "Checked"