本文共 1422 字，大约阅读时间需要 4 分钟。
在Excel中嵌入交互式Poly图形：从数据透视表到动态图表的实现
通过Excel的数据透视表功能，我们可以轻松创建并嵌入交互式的Poly图形。以下是实现这一目标的详细步骤和代码示例。
数据准备
首先，确保你的Excel工作簿中包含你想要嵌入Poly图形的数据。假设你的数据如下：| Category | Value1 | Value2 |
|---|---|---|
| A | 10 | 5 |
| B | 15 | 8 |
| C | 20 | 10 |
插入数据透视表
选择数据区域（A1:C4），然后在“插入”菜单中选择“数据透视表”。Excel会自动生成一个包含分类、值1和值2的数据透视表。自定义字段布局
在新生成的数据透视表中，你可以通过拖拽字段到相应区域重新组织数据。将“Value1”和“Value2”分别拖拽到“值”区域。生成交互式图表
Excel将自动生成并显示一个包含两个系列的柱状图或折线图。你可以通过交互式菜单来选择不同的视图和筛选条件。以下是使用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:=chartRangeEnd Sub 运行上述代码后，你将看到一个包含“Value1”和“Value2”两个系列的交互式柱状图。以下是示例输出：
| Category | Value1 | Value2 |
|---|---|---|
| A | 10 | 5 |
| B | 15 | 8 |
| C | 20 | 10 |
通过交互式菜单，你可以选择不同的视图和筛选条件，例如按分类筛选或切换图表类型（柱状图、折线图等）。
以上代码和步骤将帮助你在Excel中轻松嵌入交互式Poly图形，实现数据可视化的灵活与动态展示。
转载地址：http://bgtfk.baihongyu.com/