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

喜欢ヅ旅行 2023-07-21 08:57 2阅读 0赞

本文介绍通过C\# 编程如何在PPT幻灯片中添加超链接的方法，添加链接时，可给文本或者图片添加超链接，链接对象可指向网页地址、邮件地址、指定幻灯片等，此外，也可以参考文中编辑、删除幻灯片中已有超链接的方法。

**程序使用类库**：Free Spire.Presentation for .NET （免费版）

**dll****获取及引用：**

**方法1****：**可通过[官网下载包][Link 1]，解压将Bin文件夹下的程序安装到指定路径；完成安装后，将安装路径下Bin文件夹中的Spire.Presentation.dll文件添加引用到程序，并添加using指令。

**方法2****：**可通过[Nuget安装导入][Nuget]。

Dll添加引用效果如下图：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70][]

## **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:123654zz@163.com";//指向邮件地址
    
    
                //根据字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");
            }
        }
    }

可在幻灯片放映中查看超链接添加效果。

文本超链接添加效果：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70 1][]

图片超链接添加效果：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70 2][]

### **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");
            }
        }
    }

超链接修改结果：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70 3][]

超链接删除效果：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70 4][]

（本文完）

[Link 1]: https://www.e-iceblue.cn/Downloads/Free-Spire-Presentation-NET.html
[Nuget]: https://www.nuget.org/packages/FreeSpire.Presentation/
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70]: /images/20230528/17b55109e9084fb0b825942ccb87b3c2.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70 1]: /images/20230528/9973678c79534e889e5cb5a6f63e1eca.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70 2]: /images/20230528/7b1feebb61694d52a88ed3ef2fe161bb.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70 3]: /images/20230528/b5cb968baa2b4accb8196c0ca07c35c1.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L0VpY2VibHVl_size_16_color_FFFFFF_t_70 4]: /images/20230528/40bb29bcf9104b0a83e64d56f5c889a4.png