Arrays 将表单图像元素存储在数组中

我需要一些关于在数组中存储图像表单元素的帮助。 我尝试将其用作对象/变量，但逻辑选项已用尽

正如你在下面看到的，这些图片的名称是I_周一、I_周二等

当前代码：

Dim I_Day(0 To 4) As Image
I_Day(0) = I_Monday
I_Day(1) = I_Tuesday
I_Day(2) = I_Wednesday
I_Day(3) = I_Thursday
I_Day(4) = I_Friday

可以在for循环中访问具有的元素

For i = 0 To 4
  If sht.Cells(nameRow, weekNum + i).Value = "Pass" Then
    I_Day(i).BackColor = RGB(0, 255, 0)
  ElseIf sht.Cells(nameRow, weekNum + i).Value = "Fail" Then
    I_Day(i).BackColor = RGB(255, 0, 0)
  Else
    I_Day(i).BackColor = RGB(0, 0, 255)
  End If
Next i

谢谢你的帮助

编辑：可能应该提到错误消息： 运行时错误91：

---

对象变量或未设置块的对象

因为它们是对象，分配它们时需要使用

set

：

Dim I_Day(0 To 4) As Image
Set I_Day(0) = I_Monday
Set I_Day(1) = I_Tuesday
Set I_Day(2) = I_Wednesday
Set I_Day(3) = I_Thursday
Set I_Day(4) = I_Friday

---

有点离题，但正确的格式不是

ipacture

而不是

Ìmage

？如果存储的是图像控件，而不是它包含的图片，则不会。