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)

x = 30

y += (100 + size.Height)

'保存文档

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，这里的文件路径可自行定义。

（本文完）

转载请注明出处！！

C# 在PPT中添加多行（平铺）水印效果

相关推荐