C# 添加、修改、删除PPT中的超链接

本文介绍通过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:[e-mail]";//指向邮件地址//根据字s2创建tr2TextRange 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];//遍历shapeforeach (IShape shape in slide.Shapes)            {//判断是否为autoshapeif (shape is IAutoShape)                {//将shape转换为autoshapeIAutoShape autoShape = shape as IAutoShape;//遍历autoshape中的paragraphforeach (TextParagraph tp in autoShape.TextFrame.Paragraphs)                    {//判断paragraph下是否含有textrangeif (tp.TextRanges != null && tp.TextRanges.Count > 0)                        {//遍历textrangefor (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");        }    }}

超链接修改结果：

超链接删除效果：

（本文完）