[VBA]使用VBA在Excel中 操作 形状shape 对象

        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为