excel已关闭地图插件，对于想做 地图可视化 的，用形状来操作是一种办法，就是要自行找到合适的 地图形状，修改形状颜色等就可以用于 可视化展示不同省市销量、人口等数据。

引言

在Excel中，通过VBA（Visual Basic for Applications）可以极大地增强数据可视化和报告自动化的能力。本文将介绍如何使用VBA代码，根据销售数据自动创建并更新形状，同时根据销售量动态分配颜色。通过这个项目，您可以学到用VBA如何操作Excel形状对象、根据数据动态改变形状属性，以及如何创建直观的颜色图例。

实现步骤

下面是一个完整的VBA宏代码示例，它包括一个按钮点击事件处理程序，用于触发形状更新操作，并根据销售数据动态调整形状颜色。代码还包括一个生成颜色图例的函数，协助用户直观地了解每种颜色所代表的销售量区间。

生成主过程

修改形状上面的文字用 “TextFrame2”，好奇怪的语法！

shp.TextFrame2.TextRange.Text = region & vbCrLf & “销量: ” & sales ‘ 设置形状内文本

Private Sub CommandButton1_Click()
    UpdateShapesWithSalesData
End Sub

Sub UpdateShapesWithSalesData()
    Dim ws As Worksheet
    Dim cell As Range
    Dim shp As Shape
    Dim i As Integer
    Dim region As String
    Dim sales As Double
    Dim color As Long

    ' 设置当前工作表对象
    Set ws = ActiveSheet

    ' 清除工作表中除了 CommandButton (Type为12) 外已有的所有形状，确保每次运行时不会出现形状叠加
    For Each shp In ws.Shapes
        If shp.Type <> 12 Then
            shp.Delete
        End If
    Next shp

    ' 遍历数据区域中的每个单元格（假设区域为A2:A10）
    i = 0
    For Each cell In ws.Range("A2:A10")
        ' 获取区域名和对应的销售量
        region = cell.Value
        sales = cell.Offset(0, 1).Value
        
        ' 动态添加矩形形状，设置位置与大小
        Set shp = ws.Shapes.AddShape(msoShapeRectangle, 350 + (i Mod 3) * 120, 50 + (Int(i / 3) * 80), 100, 50)
        
        ' 获取基于销售量的颜色
        color = GetColorBasedOnSales(sales)
        
        ' 更新形状的属性（名称、颜色、文本、边框等）
        With shp
            .Name = "Shape_" & region ' 为形状命名，方便后续操作
            .Fill.Solid ' 设置填充为纯色
            .Fill.ForeColor.RGB = color ' 设置填充颜色
            .Line.Weight = 2.25 ' 边框加粗
            .Line.ForeColor.RGB = RGB(0, 0, 0) ' 设置边框颜色为黑色
            .TextFrame2.TextRange.Text = region & vbCrLf & "销量: " & sales ' 设置形状内文本
            .TextFrame2.TextRange.Font.Size = 12 ' 设置字体大小
            .TextFrame2.TextRange.Font.Bold = msoTrue ' 设置字体加粗
            .TextFrame2.VerticalAnchor = msoAnchorMiddle ' 垂直居中
            .TextFrame2.HorizontalAnchor = msoAnchorCenter ' 水平居中
        End With
        
        i = i + 1
    Next cell

    ' 添加颜色图例以解释颜色和销量之间的关系
    AddLegend ws

End Sub

‘ 根据销售量返回颜色值的函数

' 根据销售量返回颜色值的函数
Function GetColorBasedOnSales(sales As Double) As Long
    Dim red As Integer
    Dim green As Integer
    Dim blue As Integer
    Dim level As Integer
    
    ' 根据销售量划分级别，销售量每增加100，对应一个新级别
    level = Int(sales / 100)
    If level > 10 Then level = 10 ' 销售量超过1000时，设为最高级别10
    
    ' 颜色从红色到绿色渐变
    Select Case level
        Case 0: red = 0: green = 255: blue = 0 ' 绿色
        Case 1: red = 51: green = 255: blue = 0
        Case 2: red = 102: green = 255: blue = 0
        Case 3: red = 153: green = 255: blue = 0
        Case 4: red = 204: green = 255: blue = 0
        Case 5: red = 255: green = 255: blue = 0 ' 黄色
        Case 6: red = 255: green = 204: blue = 0
        Case 7: red = 255: green = 153: blue = 0
        Case 8: red = 255: green = 102: blue = 0
        Case 9: red = 255: green = 51: blue = 0
        Case 10: red = 255: green = 0: blue = 0 ' 红色
    End Select
    
    GetColorBasedOnSales = RGB(red, green, blue)
End Function

‘ 添加颜色图例的函数

' 添加颜色图例的函数
Sub AddLegend(ws As Worksheet)
    Dim i As Integer
    Dim color As Long
    Dim shp As Shape

    ' 添加图例标题
    Set shp = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, 200, 20, 150, 20)
    shp.TextFrame2.TextRange.Text = "销量区间与颜色图例"
    shp.TextFrame2.TextRange.Font.Size = 14
    shp.TextFrame2.TextRange.Font.Bold = msoTrue
    shp.Line.Visible = msoFalse ' 隐藏边框

    ' 生成颜色级别的矩形形状与对应的文本说明
    For i = 0 To 9
        color = GetColorBasedOnSales(i * 100)
        
        ' 颜色矩形
        Set shp = ws.Shapes.AddShape(msoShapeRectangle, 150, 50 + i * 30, 20, 20)
        shp.Fill.Solid
        shp.Fill.ForeColor.RGB = color
        shp.Line.Weight = 1
        shp.Line.ForeColor.RGB = RGB(0, 0, 0)
        
        ' 级别文本
        Set shp = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, 200, 50 + i * 30, 100, 20)
        If i = 9 Then
            shp.TextFrame2.TextRange.Text = "销量: >900 "
        Else
            shp.TextFrame2.TextRange.Text = "销量: " & i * 100 & " - " & (i + 1) * 100
        End If
        shp.TextFrame2.TextRange.Font.Size = 12
        shp.Line.Visible = msoFalse
    Next i
End Sub

代码解析

1. 按钮点击事件：
2. CommandButton1_Click 事件处理程序调用 UpdateShapesWithSalesData 子过程，触发形状更新。
3. 更新形状的子过程：
4. UpdateShapesWithSalesData 子过程执行以下操作： 设置工作表对象 ws 为当前工作表。 清除除 CommandButton (类型为12) 外的所有形状，以确保不会出现形状叠加。 遍历数据区域 A2:A10，获取区域名和对应的销售量。 根据销售量动态添加矩形形状，并设置形状的属性（颜色、文本、边框等）。
5. 颜色获取函数：
6. GetColorBasedOnSales 函数根据销售量划分级别，并返回相应的RGB颜色值。颜色从绿色（低销售量）渐变到红色（高销售量），共分10个等级。
7. 添加图例的子过程：
8. AddLegend 子过程在工作表中动态生成颜色图例，协助用户直观了解每种颜色所代表的销售量区间。

优化提议

1. 模块化代码：将颜色获取和形状生成分离为独立函数，以便代码的可维护性和复用性更高。
2. 灵活的范围设置：在代码开头引入变量以灵活控制数据区域和图例位置，避免硬编码。
3. 性能优化：清除现有形状部分可能会影响性能，对于较大数据集，可以思考只删除特定形状或分批删除。

结论

本文展示了如何使用VBA在Excel中自动创建并更新形状，利用销售数据动态调整颜色，并生成直观的颜色图例。这种方法可以协助用户更好地进行数据可视化和报告生成，适用于各种需要根据数据动态更新图表或形状的场景。通过这段代码，不仅可以实现销售数据的可视化，还能进一步拓展应用到其他数据分析场景中，希望这篇文章对你有所协助！