oop - VBA 按名称而不是索引设置对象属性

Question

我不知道如何问这个问题，所以我不知道如何寻找答案。这是我第一次玩 OOP，我像往常一样在我的头上。

因此，在 VBA Excel 中，您可以引用一个工作表index，您可以通过两种方式进行操作，对吧？

Sheets (1)
    'or
Sheets ("Sheet1")

我试图对我的对象和集合做同样的事情，而不是引用索引属性，我不知道从哪里开始。例子：

    Set objCar("MyCar").color = "Blue" 'from a collection of Cars

我确定我有知识缺陷，我仍在努力思考 oop 发生了什么。

Answer 1

几乎............您使用 Set 来创建对象的特定实例。然后，您可以为该实例着色。假设对象是一个形状：

Sub dural()
    Dim S As Shape
    Set S = ActiveSheet.Shapes(1)
    S.Fill.ForeColor.RGB = RGB(128, 0, 0)
    '
    '  Or
    '
    S.Name = "MyCar"
    ActiveSheet.Shapes("MyCar").Fill.ForeColor.RGB = RGB(0, 100, 0)
End Sub