Choropleth，颜色和数据

Question

我正在尝试仪表板/合唱。我已经从here.下载了欧洲

我会保持简单，我想做的第一件事是改变灰色和黑色。变成蓝色。有人能帮上忙吗？模板附带的代码如下

Option Explicit

Function udf_RGB(myR As Byte, myG As Byte, myB As Byte) As Long

  udf_RGB = RGB(myR, myG, myB)

End Function

Sub CheckColor(myCell As Range, myNameToShape As String, myValueToColor As String)
Dim myShape As Shape
Dim myTargetCell As Range
Dim myColorCode As Long

On Error GoTo Catch
  Set myTargetCell = Range(myNameToShape).Columns(1).Find(myCell.Name.Name, LookAt:=xlWhole)
  Set myShape = Sheets(1).Shapes(myTargetCell.Offset(0, 1))
  GoTo Finally

Catch:
  Exit Sub
Finally:

  On Error GoTo 0

  If myCell.Value < Range(myValueToColor).Cells(2, 1).Value Then
    myColorCode = Range(myValueToColor).Cells(1, 2).Value
  Else
    myColorCode = Application.WorksheetFunction.VLookup(myCell.Value, Range(myValueToColor), 2, True)
  End If

  myShape.Fill.ForeColor.RGB = myColorCode

End Sub

Sub UpdateMap()
Dim myCell As Range

  Application.ScreenUpdating = False

  For Each myCell In Range("MapNameToShape").Columns(1).Cells
     CheckColor Range(myCell.Value), "MapNameToShape", "MapValueToColor"
  Next myCell

  Application.ScreenUpdating = True

End Sub