如何用VBA将Excel RegionMap图表改为按二级类别着色？

我有一段Excel VBA代码用于插入RegionMap图表，能修改系列数据范围和图表标题，但没法修改国家着色方式——默认按系列值着色，我想改成按二级类别着色。录制宏得到的是空记录，求解决思路。

现有代码 #

Range("A9:A13,C9:C13").Select
Range("C9").Activate
ActiveSheet.Shapes.AddChart2(494, xlRegionMap).Select
ActiveChart.FullSeriesCollection(1).Values = "=Heatmap!$B$9:$B$13"
ActiveChart.ChartTitle.Select
Selection.Caption = "Top Keywords"

数据与效果说明 #

• 数据结构：A列是国家名称，B列是数值，C列是二级类别（分组标签）
• 当前效果：图表按B列数值高低着色，同一类别的国家颜色不统一
• 期望效果：图表按C列的二级类别着色，同一类别的国家使用相同颜色

解决思路与修改后代码 #

核心逻辑 #

RegionMap的着色模式由系列的SeriesLayout属性控制，默认是xlSeriesLayoutShowValues（按值着色），需改为xlSeriesLayoutShowCategories（按类别着色）。同时必须关联二级类别数据，否则着色逻辑失效。

优化后完整代码 #

Sub CreateRegionMapByCategory()
    Dim cht As Chart
    ' 添加RegionMap图表并绑定对象变量
    Set cht = ActiveSheet.Shapes.AddChart2(494, xlRegionMap).Chart
    
    ' 配置系列数据与着色模式
    With cht.FullSeriesCollection(1)
        .XValues = "=Heatmap!$A$9:$A$13" ' 国家名称列
        .Values = "=Heatmap!$B$9:$B$13" ' 数值列（可选）
        .CategoryNames = "=Heatmap!$C$9:$C$13" ' 二级类别列
        .SeriesLayout = xlSeriesLayoutShowCategories ' 切换为按类别着色
    End With
    
    ' 设置图表标题
    cht.ChartTitle.Caption = "Top Keywords"
End Sub

关键改进点 #

• 移除Select/Activate操作，改用对象变量操作，提升代码稳定性与效率
• 添加.CategoryNames关联二级类别数据，这是按类别着色的必要前提
• 通过SeriesLayout属性直接切换着色模式，解决录制宏无效的问题

内容的提问来源于stack exchange，提问作者Michael