本文共 1442 字，大约阅读时间需要 4 分钟。

在Excel中嵌入交互式Poly图形：从数据透视表到动态图表的实现

通过Excel的数据透视表功能，我们可以轻松创建并嵌入交互式的Poly图形。以下是实现这一目标的详细步骤和代码示例。

步骤说明

VBA代码示例

以下是使用Excel VBA创建数据透视表并嵌入Poly图形的代码示例：

Sub CreatePolyChart()
    Dim pvtCache As PivotCache
    Dim pvtTable As PivotTable
    Dim dataRange As Range
    Dim chartRange As Range
    ' 假设数据在A1:C4范围内
    Set dataRange = Range("A1:C4")
    
    ' 创建PivotCache
    Set pvtCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, dataRange)
    
    ' 创建新的数据透视表
    Set pvtTable = pvtCache.CreatePivotTable(TableDestination:=dataRange, TableName:="PolyData")
    
    ' 设置行标签和列标签
    With pvtTable
        .RowLabels.Add Range("A1").Resize(1, .SourceData.ListColumns.Count - 1)
        .ColumnLabels.Add Range("B1").Resize(2, .SourceData.ListColumns.Count - 2)
    End With
    
    ' 将数据透视表转换为柱状图
    Set chartRange = dataRange
    ActiveSheet.Shapes.AddChart2(xlColumnClustered).Select
    Selection.Chart.SetSourceData Source:=chartRange
End Sub

测试用例

运行上述代码后，你将看到一个包含“Value1”和“Value2”两个系列的交互式柱状图。以下是示例输出：

通过交互式菜单，你可以选择不同的视图和筛选条件，例如按分类筛选或切换图表类型（柱状图、折线图等）。

以上代码和步骤将帮助你在Excel中轻松嵌入交互式Poly图形，实现数据可视化的灵活与动态展示。