用于格式化形状的Excel VBA脚本

我正在制作一张互动地图，有两张纸。 第一张是带有线形的地图，第二张是数据库。

我想根据基于数据库中的值的线形添加着色function。

我已经制定了一个更容易的方法，可以在这里find： http : //www.speedyshare.com/gWJwd/plan.xlsm

这是我试过的代码：

If Target.Address = Sheets("Data").Range("$C$4:$C$9") Then Select Case Target.Value Case Is = 10 Sheets("Map").Shapes(cl.Value).Line.ForeColor.RGB = vbRed Case Is = 20 Sheets("Map").Shapes(cl.Value).Line.ForeColor.RGB = vbBlue Case Is = 30 Sheets("Map").Shapes(cl.Value).Line.ForeColor.RGB = vbGreen End Select End If