如何使用VSTO和C#更改PowerPoint图表中的值?

时间:2017-04-04 08:50:54

标签: c# interop vsto

我需要使用VSTO更改PowerPoint图表中的源数据。第一个代码片段显示了我如何从形状对象中获取该系列。

SeriesCollection seriesCollection = shape.Chart.SeriesCollection();
Series series = seriesCollection.Item(1);

我通过调用

测试了它的工作原理
series.Delete()

将从图表中删除该系列。但是,如果可能的话,我只想改变系列的值。我尝试了以下内容:

series.Values = myArray1;
series.XValues = myArray2;

这导致空图。 (系列名称和标题保留,但数据丢失)。

有谁知道如何实现这一目标?我目前的解决方案是在Excel中重新生成图表并替换PowerPoint中的图表,但我希望有一种更有效的方法。

1 个答案:

答案 0 :(得分:2)

Powerpoint图表基于底层Excel工作表,其中图表数据存储在单元格中。如果您调用图表的上下文菜单并单击“编辑数据...”,将启动Excel应用程序,其中包含来自图表的值的工作表。

因此,您应该通过直接设置系列值来修改Powerpoint图表。您应该通过更新基础Excel工作表中的单元格值来执行此操作。这是一个工作样本:

static void Main(string[] args)
{
    var powerPointApp = new Microsoft.Office.Interop.PowerPoint.Application();
    var presentation = powerPointApp.Presentations.Open(@"Presentation1.pptx");
    var slide = presentation.Slides[1];
    var shape = slide.Shapes[1];

    var chartData = shape.Chart.ChartData;
    chartData.Activate();

    var workbook = chartData.Workbook;
    workbook.Application.Visible = false;
    var dataSheet = workbook.Worksheets[1];

    double[] newData = {1, 2, 3, 4, 5};

    var colNumber = 2;
    var firstRowNumber = 2;

    //  Clearing previous data
    dataSheet.UsedRange.Columns[colNumber, Type.Missing].Clear();

    for (var i = 0; i < newData.Length; ++i)
    {
        dataSheet.Cells[firstRowNumber + i, colNumber] = newData[i];
    }

    //  Saving and closing Excel workbook before presentation could be saved.
    workbook.Close(true);
    presentation.Save();
    presentation.Close();
    powerPointApp.Quit();
}

在上面的代码中,有两个硬编码值:

var colNumber = 2;
var firstRowNumber = 2;

图表底层工作表具有预定义的结构。例如,对于默认图表,它构建以下工作簿:

enter image description here

因此,在修改工作表中的数据时,您可以依赖以下假设:

  • 值系列的第一行等于2.
  • 与特定系列对应的列等于1 + series index。此处的系列索引与您传递给SeriesCollection.Item(object Index)调用以获取系列(从1开始)的索引相同。因此,第二个工作表列对应于第一个图表系列,依此类推。

更新(有关瀑布图的问题)

瀑布图表的问题也会在我的环境中重现。我检查了所有其他15种图表类型,并且发生了同样的错误:

  • 树形图
  • 炎爆
  • 直方图
  • Box&amp;晶须
  • 瀑布

问题的根本原因是chartData.Activate()调用实际上并未打开与图表关联的工作表。问题是Interop特有的,因为如果在PowerPoint应用程序中选择“编辑数据...”,则工作表会成功打开。

所有这些图表都已添加到Office 2016中。对于以前版本的Office中可用的图表,一切正常。似乎这个问题是由Interop程序集与2016办公室集成的问题引起的。 Office 2016仍然没有主要互操作程序集,它仍然附带Office 2013的PIA。不幸的是,我无法为此特定问题提出修复或解决方法。我们必须等待微软团队的修复。