C# 在PPT中添加多行（平铺）水印效果
在PPT幻灯片中，可通过添加形状的方式，来实现类似水印的效果，可添加单一文本水印效果，即幻灯片中只有一个文本水印；也可以添加多行（平铺）文本水印效果，即幻灯片中以一定方式平铺排列多个文本水印效果。本文主要以C#程序代码为例介绍第二种水印添加方法，另附VB.NET代码供参考。
程序环境
l 需引入以下程序集文件，如图：
其中，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
完成代码后，执行程序，生成结果文档。在结果文档中可查看水印添加效果，如下图：
注：以上代码中的文件路径为VS项目文件夹路径，如本次测试环境中为C:\\Users\\Administrator\\Documents\\Visual Studio 2013\\Projects\\InsertWatermark_PPT\\TextWatermark2\\bin\\Debug，这里的文件路径可自行定义。
（本文完）
转载请注明出处！！
