C#:如何将excel单元格范围和图表数据复制到power point幻灯片
我在Excel工作表中有数据和图表,我需要在运行时将其从Excel复制到power point幻灯片 我有一个代码,这是工作正常,但代码只能复制图表数据到excel工作表,而不是范围数据 请看我的Excel的屏幕截图。所以,任何人都知道我的工作表中的数据是如何存在的,我需要通过编程将其复制到PowerPoint幻灯片中。 下面是我用来将范围数据和图表数据动态复制到PowerPoint的代码C#:如何将excel单元格范围和图表数据复制到power point幻灯片,c#,excel,powerpoint,excel-interop,C#,Excel,Powerpoint,Excel Interop,我在Excel工作表中有数据和图表,我需要在运行时将其从Excel复制到power point幻灯片 我有一个代码,这是工作正常,但代码只能复制图表数据到excel工作表,而不是范围数据 请看我的Excel的屏幕截图。所以,任何人都知道我的工作表中的数据是如何存在的,我需要通过编程将其复制到PowerPoint幻灯片中。 下面是我用来将范围数据和图表数据动态复制到PowerPoint的代码 private void Form1_Load(object sender, EventArgs e)
private void Form1_Load(object sender, EventArgs e)
{
pptNS.ApplicationClass powerpointApplication = null;
pptNS.Presentation pptPresentation = null;
pptNS.Slide pptSlide = null;
pptNS.ShapeRange shapeRange = null;
xlNS.ApplicationClass excelApplication = null;
xlNS.Workbook excelWorkBook = null;
xlNS.Worksheet targetSheet = null;
xlNS.ChartObjects chartObjects = null;
xlNS.ChartObject existingChartObject = null;
xlNS.Range destRange = null;
string paramPresentationPath = @"D:\test\Chart Slide.pptx";
string paramWorkbookPath = @"D:\test\MyExcelData.xlsx";
object paramMissing = Type.Missing;
try
{
// Create an instance of PowerPoint.
powerpointApplication = new pptNS.ApplicationClass();
// Create an instance Excel.
excelApplication = new xlNS.ApplicationClass();
// Open the Excel workbook containing the worksheet with the chart
// data.
excelWorkBook = excelApplication.Workbooks.Open(paramWorkbookPath,
paramMissing, paramMissing, paramMissing,
paramMissing, paramMissing, paramMissing,
paramMissing, paramMissing, paramMissing,
paramMissing, paramMissing, paramMissing,
paramMissing, paramMissing);
// Get the worksheet that contains the chart.
targetSheet =
(xlNS.Worksheet)(excelWorkBook.Worksheets["Spain"]);
// Get the ChartObjects collection for the sheet.
chartObjects =
(xlNS.ChartObjects)(targetSheet.ChartObjects(paramMissing));
// Create a PowerPoint presentation.
pptPresentation = powerpointApplication.Presentations.Add(
Microsoft.Office.Core.MsoTriState.msoTrue);
// Add a blank slide to the presentation.
pptSlide =
pptPresentation.Slides.Add(1, pptNS.PpSlideLayout.ppLayoutBlank);
// capture range
//var writeRange = targetSheet.Range["A1:B15"];
destRange = targetSheet.get_Range("A1:B15");
//copy range
destRange.Copy();
// Paste the chart into the PowerPoint presentation.
shapeRange = pptSlide.Shapes.Paste();
// Position the chart on the slide.
shapeRange.Left = 60;
shapeRange.Top = 100;
// Get or capture the chart to copy.
existingChartObject =(xlNS.ChartObject)(chartObjects.Item(1));
// Copy the chart from the Excel worksheet to the clipboard.
existingChartObject.Copy();
// Paste the chart into the PowerPoint presentation.
shapeRange = pptSlide.Shapes.Paste();
//Position the chart on the slide.
shapeRange.Left = 90;
@shapeRange.Top = 100;
// Save the presentation.
pptPresentation.SaveAs(paramPresentationPath,
pptNS.PpSaveAsFileType.ppSaveAsOpenXMLPresentation,
Microsoft.Office.Core.MsoTriState.msoTrue);
}
catch (Exception ex)
{
Console.WriteLine(ex.Message);
}
finally
{
// Release the PowerPoint slide object.
shapeRange = null;
pptSlide = null;
// Close and release the Presentation object.
if (pptPresentation != null)
{
pptPresentation.Close();
pptPresentation = null;
}
// Quit PowerPoint and release the ApplicationClass object.
if (powerpointApplication != null)
{
powerpointApplication.Quit();
powerpointApplication = null;
}
// Release the Excel objects.
targetSheet = null;
chartObjects = null;
existingChartObject = null;
// Close and release the Excel Workbook object.
if (excelWorkBook != null)
{
excelWorkBook.Close(false, paramMissing, paramMissing);
excelWorkBook = null;
}
// Quit Excel and release the ApplicationClass object.
if (excelApplication != null)
{
excelApplication.Quit();
excelApplication = null;
}
GC.Collect();
GC.WaitForPendingFinalizers();
}
}
请查看我的代码,并让我知道我的代码中需要更正的内容,因为我可以将单元格范围和图表复制到power point幻灯片。我怀疑它是否像复制粘贴一样简单。您可能需要首先在PowerPoint幻灯片中创建一个表,并将表值设置为表中范围的值。我对PowerPoint interop不太熟悉,但它可能看起来像:
var table = pptSlide.Shapes.AddTable();
destRange = targetSheet.get_Range("A1:B15");
for (int i = 1; i <= destRange.Rows; i++)
{
for (int j = 1; j <= destRange.Columns; j++)
{
table.Table.Cell(i, j).Shape.TextFrame.TextRange.Text =destRange[i, j].Text;
}
}
var table=pptSlide.Shapes.AddTable();
destRange=targetSheet.get_范围(“A1:B15”);
对于(inti=1;i)如何通过指定left和top在幻灯片中定位表…任何提示。我将测试您的代码并让您知道。thanks@Mou抱歉,我不熟悉PowerPoint库。请尝试pptSlide.Shapes.AddTable()
SEED。我不知道您从哪里获得填充表的代码,但当我粘贴代码时,它不起作用。我检查了是否必须在for循环中填充表单元格,这不是我的意图。只需看看人们是如何在循环中填充表的