vba - excel中交互式地图的宏 - 着色过程

Question

我已经为 Excel 制作了一张世界地图（通过查看一些指南），它根据单元格中输入的值对国家/地区进行颜色编码。我不明白为什么会弹出此代码的错误消息，说明使用的名称不完全存在。

这是代码：

Sub Shading()

    For i = 3 To 79
    Range("actReg").Value = Range("ShadingMacro!A" & i).Value
    ActiveSheet.Shapes(Range("actReg").Value).Select
    Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("actRegCode").Value).Interior.Color

    Next i

    Range("A21").Select[enter image description here][1]

End Sub

这是错误消息（抱歉是法语）：

Erreur d'execution '-2147024809 (80070057)':
L'élément portant ce nom est introuvable

然后“débogage”工具将我带到第三行：

ActiveSheet.Shapes(Range("actReg").Value).Select

但我不太明白问题出在哪里。