PowerPoint幻灯片中的foreach图表？

Question

我有两个问题。

1.我有带有Frameowrk 3.5的VS2010，需要提升一些数据和文本并更新一些现有的Powerpoint文件。 最好的方法是什么？ 我是VSTO的新手，但已经使用C＃相当一段时间了。

2.我一直在使用Interop库（Microsoft.Office.Interop.PowerPoint）进行测试，因此我需要打开一个Powerpoint并更改所有幻灯片和图表中的一些文本。 幻灯片和便笺没问题，但图表似乎是个问题。 似乎没有图表集合，并且if（shape.Type == Office.MsoShapeType.msoChart）返回false。

我之前在VBA中完成了此操作，并使用了以下代码

For Each chtChart In sht.ChartObjects
        chtChart.Chart.ChartTitle.Characters.Text = Replace    (chtChart.Chart.ChartTitle.Characters.Text, "{month}", strCurrent,    VbCompareMethod.vbTextCompare)
Next chtChart

我只是真的想做同样的事情。

我是否缺少某些明显的东西？

感激任何指针。

史蒂夫

Answer 1

您可能会在PPT中运行几种图表类型。 忽略旧的MSGraph图表，您可能会发现用户使用“插入” |“添加”添加的图表。 图表。

这些形状将是.Type = 3（msoChart）的形状。 这是如何获取这些图表和/或图表数据的示例：

Sub ShowChartData()

Dim oSh As Shape
Dim oCht As Chart
Dim oData As ChartData

Dim x As Long
Dim y As Long
Dim sTemp As String

Set oSh = ActiveWindow.Selection.ShapeRange(1)

Set oCht = oSh.Chart
oCht.ChartData.Activate
Set oData = oCht.ChartData

For x = 1 To 4
    For y = 1 To 4
        sTemp = sTemp & oData.Workbook.Worksheets("Sheet1").Cells(x, y) & vbTab
    Next    ' y/cell
    Debug.Print sTemp
    sTemp = ""
Next ' x/row

' do this to get rid of visible worksheet
oData.Workbook.Close

Set oData = Nothing
Set oCht = Nothing

End Sub

图表也可能是链接的或从Excel复制/粘贴的嵌入式对象。