Spire.Presentation for .NET 是專業的 PowerPoint組件，開發者可以在 .NET 平臺上對 PPT文檔進行生成、修改、轉換和打印等操作，而無需安裝 Microsoft PowerPoint。

Spire.Presentation for .NET 6.1版本支持嵌入Zip對象到PPT幻燈片。本文通過C#及VB.NET代碼展示如何來實現Zip對象添加。在PPT中嵌入Excel對象可參考這篇文章。可點擊此處下載最新版測試。

C#

using Spire.Presentation;
using Spire.Presentation.Drawing;
using System;
using System.Drawing;
using System.IO;

namespace InsertZip
{
    class Program
    {
        static void Main(string[] args)
        {
            //創建一個PPT文檔，并獲取第一張幻燈片（創建的PPT默認包含一張空白幻燈片）
            Presentation ppt = new Presentation();
            ISlide slide = ppt.Slides[0];

            //讀取zip文件到byte數組
            byte[] data = File.ReadAllBytes("sample.zip");

            //在幻燈片中繪制形狀，并添加zip文件對象
            Rectangle rec = new Rectangle(120, 120, 100, 100);             
            IOleObject ole = slide.Shapes.AppendOleObject("sample.zip", data, rec);
            ole.ProgId = "Package";

            //設置對象封面圖片
            Image image = Image.FromFile("logo.png");
            IImageData oleImage = ppt.Images.Append(image);
            ole.SubstituteImagePictureFillFormat.Picture.EmbedImage = oleImage;

            //保存文檔
            ppt.SaveToFile("InsertZip.pptx", Spire.Presentation.FileFormat.Pptx2013);
            System.Diagnostics.Process.Start("InsertZip.pptx");
        }
    }
}

VB.NET

Imports Spire.Presentation
Imports Spire.Presentation.Drawing
Imports System.Drawing
Imports System.IO

Namespace InsertZip
	Class Program
		Private Shared Sub Main(args As String())
			'創建一個PPT文檔，并獲取第一張幻燈片（創建的PPT默認包含一張空白幻燈片）
			Dim ppt As New Presentation()
			Dim slide As ISlide = ppt.Slides(0)

			'讀取zip文件到byte數組
			Dim data As Byte() = File.ReadAllBytes("sample.zip")

			'在幻燈片中繪制形狀，并添加zip文件對象
			Dim rec As New Rectangle(120, 120, 100, 100)
			Dim ole As IOleObject = slide.Shapes.AppendOleObject("sample.zip", data, rec)
			ole.ProgId = "Package"

			'設置對象封面圖片
			Dim image__1 As Image = Image.FromFile("logo.png")
			Dim oleImage As IImageData = ppt.Images.Append(image__1)
			ole.SubstituteImagePictureFillFormat.Picture.EmbedImage = oleImage

			'保存文檔
			ppt.SaveToFile("InsertZip.pptx", Spire.Presentation.FileFormat.Pptx2013)
			System.Diagnostics.Process.Start("InsertZip.pptx")
		End Sub
	End Class
End Namespace

嵌入效果