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

引言

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

实现步骤

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

生成主过程

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

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

Private Sub CommandButton1_Click()    UpdateShapesWithSalesDataEnd SubSub 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 wsEnd 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 iEnd 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中自动创建并更新形状，利用销售数据动态调整颜色，并生成直观的颜色图例。这种方法可以帮助用户更好地进行数据可视化和报告生成，适用于各种需要根据数据动态更新图表或形状的场景。通过这段代码，不仅可以实现销售数据的可视化，还能进一步拓展应用到其他数据分析场景中，希望这篇文章对你有所帮助！