永利最大(官方)网站

有时候我们需要在Excel幻灯片放映中呈现Excel数据，而不是切换到Excel，为此，可以将Excel数据以其他格式（如工作表对象，HTML格式，位图，图片或文本格式）粘贴到PowerPoint幻灯片。 在这篇文章中，将会给大家介绍如何将Excel工作表作为一个OLE对象插入PowerPoint中的C＃，VB.NET中。

首先，我们必须使用Spire.XLS 来加载Excel文件并获取数据，然后使用Spire.Presentation 创建OEL对象。 所以请记得下载Spire.Office，并将所提到的dll添加为VS项目的参考。 然后按照以下指导完成这项工作。

Step 1:创建一个新的Workbook实例并加载Excel文件。

Workbook book = new Workbook();
book.LoadFromFile(@"data.xlsx");

Step 2:从第一个工作表中选择单元格范围，并保存为图像。

mage image = book.Worksheets[0].ToImage(1, 1, 5, 4);

Step 3:初始化Presentation类的新实例，将图像添加到演示文稿中。

Presentation ppt = new Presentation();
IImageData oleImage = ppt.Images.Append(image);

Step 4:根据Excel数据将OLE对象插入到演示文稿中。

Rectangle rec = new Rectangle(60,60,image.Width,image.Height);
using (MemoryStream ms = new MemoryStream())
{
    book.SaveToStream(ms);
    ms.Position = 0;
    Spire.Presentation.IOleObject oleObject = ppt.Slides[0].Shapes.AppendOleObject("excel", ms.ToArray(), rec);
    oleObject.SubstituteImagePictureFillFormat.Picture.EmbedImage = oleImage;
    oleObject.ProgId = "Excel.Sheet.8";

Step 5:以指定的格式保存PowerPoint文件。

ppt.SaveToFile("InsertOle.ppt", Spire.Presentation.FileFormat.Pptx2007);

输出：

详细代码：

[C#]

Workbook book = new Workbook();
book.LoadFromFile(@"data.xlsx");
Image image = book.Worksheets[0].ToImage(1, 1, 5, 4);
Presentation ppt = new Presentation();
IImageData oleImage = ppt.Images.Append(image);
Rectangle rec = new Rectangle(60,60,image.Width,image.Height);
using (MemoryStream ms = new MemoryStream())
{
    book.SaveToStream(ms);
    ms.Position = 0;
    Spire.Presentation.IOleObject oleObject = ppt.Slides[0].Shapes.AppendOleObject("excel", ms.ToArray(), rec);
    oleObject.SubstituteImagePictureFillFormat.Picture.EmbedImage = oleImage;
    oleObject.ProgId = "Excel.Sheet.8";
}
ppt.SaveToFile("InsertOle.ppt", Spire.Presentation.FileFormat.Pptx2007);}

[VB.NET]

Dim book As New Workbook()
book.LoadFromFile("data.xlsx")
Dim image As Image = book.Worksheets(0).ToImage(1, 1, 5, 4)
Dim ppt As New Presentation()
Dim oleImage As IImageData = ppt.Images.Append(image)
Dim rec As New Rectangle(60, 60, image.Width, image.Height)
Using ms As New MemoryStream()
    book.SaveToStream(ms)
    ms.Position = 0
    Dim oleObject As Spire.Presentation.IOleObject = ppt.Slides(0).Shapes.AppendOleObject("excel", ms.ToArray(), rec)
    oleObject.SubstituteImagePictureFillFormat.Picture.EmbedImage = oleImage
    oleObject.ProgId = "Excel.Sheet.8";
End Using
ppt.SaveToFile("InsertOle.ppt", Spire.Presentation.FileFormat.Pptx2007)

慧都控件网