echarts地图鼠标移入颜色设置_突破|Excel自带的地图不能自由设置颜色？

我的目标：让中国的大学生走出校门的那一刻就已经具备这些office技能，让职场人士能高效使用office为其服务。支持我，也为自己加油！

你能用Excel自带的地图做出下面的图表吗？

选中数据后插入地图，设置序列的颜色： 结果发现， 序列颜色 要不就是两种 ，要不就是 3种 ， 虽说是 散射的， 但有时 还是无法满足我们个性化的需求 。 怎么才能让Excel中自带的地图中每个省份的颜色根据需求来设置呢？ 除了手动设置每个省区块的填充颜色外，我们可以用VBA批量填充。 且做成模板后，每次只需更新数据，点下刷新按钮，图表中各个省区块的就颜色自动更新，如下： 代码如下：

Sub 定制()Dim RGB0, RGB1, RGB2, RGB3, RGB4, RGB5, RGB6, RGB7Dim i%RGB0 = rgb(128, 128, 128)RGB1 = rgb(255, 255, 255)RGB2 = rgb(255, 247, 185)RGB3 = rgb(255, 197, 79)RGB4 = rgb(241, 131, 52)RGB5 = rgb(204, 95, 66)RGB6 = rgb(170, 255, 255)RGB7 = rgb(121, 42, 24)        ActiveSheet.ChartObjects(1).ActivateActiveChart.FullSeriesCollection(1).ApplyDataLabelsActiveChart.FullSeriesCollection(1).HasLeaderLines = FalseActiveChart.FullSeriesCollection(1).Format.Line.ForeColor.rgb = RGB0With ActiveChart.FullSeriesCollection(1).DataLabels    .ShowSeriesName = False    .ShowCategoryName = True    .ShowValue = FalseEnd WithFor i = 1 To 34    With ActiveChart.FullSeriesCollection(1).Points(i).Format.Fill.ForeColor        Select Case Cells(i + 1, 3)            Case 0               .rgb = RGB1            Case 1 To 9               .rgb = RGB2            Case 10 To 99               .rgb = RGB3            Case 100 To 499                .rgb = RGB4            Case 500 To 999                .rgb = RGB5            Case 1000 To 4999                .rgb = RGB6            Case Is >= 5000                .rgb = RGB7        End Select    End WithNextEnd Sub

当然你也可以做的更加便捷一点，可以在Excel表中做一个阈值区域和阈值对应的填充色，这样以后更新数据后，更改阈值和填充色，刷新图表就能按照自己的需求对地图进行填色。 有想参加VBA培训班的同学请私聊我，微信：527240310。

本节的分享就到这里，鹏哥祝大家每天都有进步。

聚米为谷

博学宏才

更多学习内容

手机端请扫描

电脑端请登录

www.mihong.top

您点的每个赞，我都认真当成了喜欢