VBA编写数据地图问题

VBA制作数据地图，调试运行没有报错，点击相关按钮，没有颜色显示。

Option Explicit

Sub fill_color()

Dim i%, c As Long
For i = 2 To 35  '位数据源的起始行和结束行行号，根据区域的多少来确定
    Select Case Cells(i, 33)
        Case Is >= Range("AK12")
            c = Range("AJ12").Interior.Color
        Case Range("AK13") To Range("AK12")
            c = Range("AJ13").Interior.Color
        Case Range("AK14") To Range("AK13")
            c = Range("AJ14").Interior.Color
        Case Range("AK15") To Range("AK14")
            c = Range("AJ15").Interior.Color
        Case Else
            c = Range("AJ16").Interior.Color
    End Select
   'Sheet1.Shapes("图形2").Activate
   ActiveSheet.Shapes(Cells(i, 32)).Fill.ForeColor.RGB = c
Next

End Sub

img

img