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

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