C# 处理PPT水印(三)—— 在PPT中添加多行(平铺)文本水印效果

在PPT幻灯片中,可通过添加形状的方式,来实现类似水印的效果,可添加单一文本水印效果,即幻灯片中只有一个文本水印;也可以添加多行(平铺)文本水印效果,即幻灯片中以一定方式平铺排列多个文本水印效果。本文主要以C#程序代码为例介绍第二种水印添加方法,另附VB.NET代码供参考。

程序环境

  • 需引入以下程序集文件,如图:

 

 

其中,Spire.Presentation.dll程序集,需下载安装至本地(也可以通过Nuget下载),这里使用的免费版

  • .NET Framework 4.8

 

详细代码

【C#】

using Spire.Presentation;
using Spire.Presentation.Drawing;
using System;
using System.Drawing;
using System.Windows.Forms;

namespace TextWatermark2
{
    class Program
    {
        static void Main(string[] args)
        {
            //加载PPT文档
            Presentation ppt = new Presentation();
            ppt.LoadFromFile("test.pptx");

            //获取需要添加的水印的幻灯片(第一张幻灯片)
            ISlide slide = ppt.Slides[0];

            //创建水印文本
            Font font = new Font("宋体", 20);
            String watermarkText = "内部资料";
            SizeF size = TextRenderer.MeasureText(watermarkText, font);

            //指定水印添加的起始坐标位置
            float x = 50;
            float y = 80;
            for (int i = 0; i < 4; i++)
            {
                for (int j = 0; j < 4; j++)
                {
                    //绘制文本,设置文本格式
                    RectangleF rect = new RectangleF(x, y, size.Width, size.Height);
                    IAutoShape shape = slide.Shapes.AppendShape(Spire.Presentation.ShapeType.Rectangle, rect);
                    shape.Fill.FillType = FillFormatType.None;
                    shape.ShapeStyle.LineColor.Color = Color.White;
                    shape.Rotation = -45;
                    shape.Locking.SelectionProtection = true;
                    shape.Line.FillType = FillFormatType.None;
                    shape.TextFrame.Text = watermarkText;
                    TextRange textRange = shape.TextFrame.TextRange;
                    textRange.Fill.FillType = FillFormatType.Solid;
                    textRange.Fill.SolidColor.Color = Color.FromArgb(120, Color.HotPink);
                    textRange.EastAsianFont = new TextFont(font.Name);
                    textRange.FontHeight = font.Size;
                    x += (100 + size.Width);
                }
                x = 30;
                y += (100 + size.Height);
            }

            //保存文档
            ppt.SaveToFile("TextWatermark.pptx", FileFormat.Pptx2013);
            System.Diagnostics.Process.Start("TextWatermark.pptx");
        }
    }
}

【VB.NET】

Imports Spire.Presentation
Imports Spire.Presentation.Drawing
Imports System.Drawing
Imports System.Windows.Forms

Namespace TextWatermark2
    Class Program
        Private Shared Sub Main(args As String())
            '加载PPT文档
            Dim ppt As New Presentation()
            ppt.LoadFromFile("test.pptx")

            '获取需要添加的水印的幻灯片(第一张幻灯片)
            Dim slide As ISlide = ppt.Slides(0)

            '创建水印文本
            Dim font As New Font("宋体", 20)
            Dim watermarkText As [String] = "内部资料"
            Dim size As SizeF = TextRenderer.MeasureText(watermarkText, font)

            '指定水印添加的起始坐标位置
            Dim x As Single = 50
            Dim y As Single = 80
            For i As Integer = 0 To 3
                For j As Integer = 0 To 3
                    '绘制文本,设置文本格式
                    Dim rect As New RectangleF(x, y, size.Width, size.Height)
                    Dim shape As IAutoShape = slide.Shapes.AppendShape(Spire.Presentation.ShapeType.Rectangle, rect)
                    shape.Fill.FillType = FillFormatType.None
                    shape.ShapeStyle.LineColor.Color = Color.White
                    shape.Rotation = -45
                    shape.Locking.SelectionProtection = True
                    shape.Line.FillType = FillFormatType.None
                    shape.TextFrame.Text = watermarkText
                    Dim textRange As TextRange = shape.TextFrame.TextRange
                    textRange.Fill.FillType = FillFormatType.Solid
                    textRange.Fill.SolidColor.Color = Color.FromArgb(120, Color.HotPink)
                    textRange.EastAsianFont = New TextFont(font.Name)
                    textRange.FontHeight = font.Size
                    x += (100 + size.Width)
                Next
                x = 30
                y += (100 + size.Height)
            Next

            '保存文档
            ppt.SaveToFile("TextWatermark.pptx", FileFormat.Pptx2013)
            System.Diagnostics.Process.Start("TextWatermark.pptx")
        End Sub
    End Class
End Namespace

完成代码后,执行程序,生成结果文档。在结果文档中可查看水印添加效果,如下图:

 

其他关于C#操作PPT水印的方法可参考以下相关文章:

 

(本文完)

转载请注明出处!

人已赞赏
经验教程

Web性能优化之瘦身秘笈

2021-3-1 14:04:00

经验教程

图神经网络,这到底是个什么?

2021-3-1 14:36:00

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
今日签到
有新私信 私信列表
搜索