从Powerpoint Chart的电子表格中提取额外数据

Question

针对所有PowerPoint大师。

如果您有一系列数据正在PowerPoint中生成图表 excel中的数据看起来像

1. Item1 10
2. Item2 20
3. Item3 30
4. Item4 40
5. 总计100

简单地拉动物品并在图表上显示它们的价值......但是如果你想通过总价值怎么办呢？ 换句话说，Cell的值（称为B5）显示在一个单独的文本框中？

您可以使用[cell]语法定位Cell标签中的特定单元格，但这只能在标签中使用...并且您不能复制单元格/系列的标签。

有一种简单的方法来引用创建图表的表并提取特定单元格的值吗？

任何想法或想法？

Answer 1

以下是一个例子：

Dim oSh As Shape
Dim oCht As Chart
Dim oChtData As ChartData
Dim x As Long

' For purposes of example, assume that we've got a chart in PPT
' and that it's selected:
Set oSh = ActiveWindow.Selection.ShapeRange(1)
' We could as easily pass a reference to the shape to this routine as a param

' Sanity test; if it's not a chart, bug out
If Not oSh.HasChart Then
    Exit Sub
Else
    Set oCht = oSh.Chart
    Set oChtData = oCht.ChartData
End If

With oChtData
    .Activate
    Debug.Print .Workbook.Worksheets("Sheet1").Cells(1, 2)
End With

' This leaves the workbook open , so:
oChtData.Workbook.Close

Answer 2

可以解压缩.pptx文件以显示每个图表的嵌入.xlsx文件。为什么不尝试这种方法来获取您寻找的数据。只需将文件的扩展名更改为.zip，即可提取并释放内部多汁的优点。当您在PowerPoint中编辑图表的数据时，您会在其中找到Excel电子表格。

有十几种不同的方式可以访问.xlsx数据，具体取决于您使用的技术堆栈（单独使用谷歌）。然后，您可以根据需要查询单元格和工作表。最酷的部分是以这种方式编辑数据并重新压缩pptx为您提供了一种使用PowerPoint作为输出...动画和所有内容来构建自动报告的好方法。

BTW，这种解压缩，修改和重新压缩pptx的技术非常适合以自动方式交换图像。然后，您可以使用另一个外部系统生成一些图像，然后从命令行更新pptx。