我有一个C#代码构建一个包含少量图表的excel文件。我通过Microsoft.Office.Interop.Excel
12与Excel合作。
该工作正常但同时我需要生成包含相同精确图表的PowerPoint演示文稿。
有没有办法复制
Microsoft.Office.Interop.Excel.ChartObject
到PowerPoint文件?或者以编程方式将这些图表复制到PowerPoint演示文稿的任何其他方式?
答案 0 :(得分:4)
我想这应该可行
using xlNS = Microsoft.Office.Interop.Excel;
using Microsoft.Office.Interop.PowerPoint;
xlNS.ApplicationClass excelApplication = null;
xlNS.Workbook excelWorkBook = null;
xlNS.Worksheet targetSheet = null;
xlNS.ChartObjects chartObjects = null;
xlNS.ChartObject existingChartObject = null;
Microsoft.Office.Interop.PowerPoint.ShapeRange shapeRange = null;
Microsoft.Office.Interop.PowerPoint.Slide CurSlide;
excelApplication = new xlNS.ApplicationClass();//Create New Excel
excelWorkBook = excelApplication.Workbooks.Open(Excelpath,
paramMissing, paramMissing, paramMissing, paramMissing, paramMissing,
paramMissing, paramMissing, paramMissing, paramMissing, paramMissing,
paramMissing, paramMissing, paramMissing, paramMissing);
Ws = (Excel.Worksheet)excelWorkBook.Worksheets[6];//Your Sheet that contain Chart
Ws.Activate();
targetSheet = (xlNS.Worksheet)(excelWorkBook.Worksheets["SheetName"]);
chartObjects = (xlNS.ChartObjects)(targetSheet.ChartObjects(paramMissing));
existingChartObject = (xlNS.ChartObject)(chartObjects.Item(1));
existingChartObject.Copy();
shapeRange = CurSlide.Shapes.Paste();//Paste it to your Current Slide
shapeRange.Left = 435;
shapeRange.Top = 80; //Formatting your chart