本文介紹通過C# 編程如何在PPT幻燈片中添加超鏈接的方法，添加鏈接時，可給文本或者圖片添加超鏈接，鏈接對象可指向網頁地址、郵件地址、指定幻燈片等，此外，也可以參考文中編輯、刪除幻燈片中已有超鏈接的方法。 程式使用類庫：Free Spire.Presentation for .NET （免費版） d ...
本文介紹通過C# 編程如何在PPT幻燈片中添加超鏈接的方法，添加鏈接時，可給文本或者圖片添加超鏈接，鏈接對象可指向網頁地址、郵件地址、指定幻燈片等，此外，也可以參考文中編輯、刪除幻燈片中已有超鏈接的方法。
程式使用類庫：Free Spire.Presentation for .NET （免費版）
dll獲取及引用：
方法1：可通過官網下載包，解壓將Bin文件夾下的程式安裝到指定路徑；完成安裝後，將安裝路徑下Bin文件夾中的Spire.Presentation.dll文件添加引用到程式，並添加using指令。
方法2：可通過Nuget安裝導入。
Dll添加引用效果如下圖：
C# 代碼示例
1. 添加超鏈接到PPT幻燈片
using Spire.Presentation; using Spire.Presentation.Drawing; using System.Drawing; namespace AddHyperlink { class Program { static void Main(string[] args) { //初始化Presentation實例 Presentation ppt = new Presentation(); //添加一張幻燈片作為第二張幻燈片（創建文檔時，已預設生成一頁幻燈片） ppt.Slides.Append(); //獲取第1張幻燈片,並添加形狀 ISlide slide1 = ppt.Slides[0]; IAutoShape shape = slide1.Shapes.AppendShape(ShapeType.Rectangle, new RectangleF(100, 100, 450,200)); shape.Fill.FillType = FillFormatType.Solid; shape.Fill.SolidColor.Color = Color.LightYellow; shape.ShapeStyle.LineColor.Color = Color.White; //聲明字元串變數 string s1 = "BIDU"; string s2 = "是全球最大的中文搜索引擎，中國最大的以信息和知識為核心的互聯網綜合服務公司，全球領先的人工智慧平臺型公司。"; string s3 = "詳見第二頁內容介紹"; //獲取形狀段落(預設有一個空白段落) TextParagraph paragraph = shape.TextFrame.TextRange.Paragraph; paragraph.Alignment = TextAlignmentType.Left; //根據字元串s1創建tr1，併在文字上添加鏈接，指向網頁地址 TextRange tr1 = new TextRange(s1); tr1.ClickAction.Address = "https://www.baidu.com/"; //tr1.ClickAction.Address = "mailto:[email protected]";//指向郵件地址 //根據字s2創建tr2 TextRange tr2 = new TextRange(s2); //根據字元串s3創建tr3，併在文字上添加鏈接，指向第二張幻燈片 TextRange tr3 = new TextRange(s3); ClickHyperlink link = new ClickHyperlink(ppt.Slides[1]); tr3.ClickAction = link; //將TextRange添加到段落 paragraph.TextRanges.Append(tr1); paragraph.TextRanges.Append(tr2); paragraph.TextRanges.Append(tr3); //設置段落的字體樣式 foreach (TextRange tr in paragraph.TextRanges) { tr.LatinFont = new TextFont("宋體 (Body)"); tr.FontHeight = 20f; tr.IsBold = TriState.True; tr.Fill.FillType = FillFormatType.Solid; tr.Fill.SolidColor.Color = Color.Black; } //獲取第2張幻燈片，添加形狀，並將圖片添加到形狀，設置鏈接，指向網頁地址 ISlide slide2 = ppt.Slides[1]; RectangleF rect = new RectangleF(250, 175, 195, 130); IEmbedImage image = slide2.Shapes.AppendEmbedImage(ShapeType.Rectangle, @"tp.png", rect); ClickHyperlink hyperlink = new ClickHyperlink("https://www.baidu.com/"); image.Click = hyperlink; //保存文檔 ppt.SaveToFile("AddHyperlink.pptx", FileFormat.Pptx2010); System.Diagnostics.Process.Start("AddHyperlink.pptx"); } } }
可在幻燈片放映中查看超鏈接添加效果。
文本超鏈接添加效果：
圖片超鏈接添加效果：
2. 編輯、刪除PPT幻燈片中的超鏈接
using Spire.Presentation; namespace ModifyHyperlink { class Program { static void Main(string[] args) { //初始化Presentation實例 Presentation ppt = new Presentation(); //載入現有的文檔 ppt.LoadFromFile("AddHyperlink.pptx"); //獲取第一張幻燈片 ISlide slide = ppt.Slides[0]; //遍歷shape foreach (IShape shape in slide.Shapes) { //判斷是否為autoshape if (shape is IAutoShape) { //將shape轉換為autoshape IAutoShape autoShape = shape as IAutoShape; //遍歷autoshape中的paragraph foreach (TextParagraph tp in autoShape.TextFrame.Paragraphs) { //判斷paragraph下是否含有textrange if (tp.TextRanges != null && tp.TextRanges.Count > 0) { //遍歷textrange for (int tpcount = 0; tpcount < tp.TextRanges.Count; tpcount++) { //判斷是否含有文本且含有ClickAction和鏈接 if (tp.TextRanges[tpcount].ClickAction != null && !string.IsNullOrWhiteSpace(tp.TextRanges[tpcount].ClickAction.Address) && !string.IsNullOrWhiteSpace(tp.TextRanges[tpcount].Text)) { //判斷是否含有http鏈接或https鏈接 if (tp.TextRanges[tpcount].ClickAction.Address.ToLower().Contains("http") || tp.TextRanges[tpcount].ClickAction.Address.ToLower().Contains("https")) { //為鏈接重新賦值 tp.TextRanges[tpcount].ClickAction.Address = "https://baike.baidu.com/"; //重新設置超鏈接文本 tp.TextRanges[tpcount].Text = "百度百科"; //刪除超鏈接 //tp.TextRanges[tpcount].ClickAction = null; } } } } } } } //保存文檔 ppt.SaveToFile("ModifyHyperlink.pptx", FileFormat.Pptx2010); System.Diagnostics.Process.Start("ModifyHyperlink.pptx"); } } }
超鏈接修改結果：
超鏈接刪除效果：
（本文完）
