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水印的方法可參考以下相關文章：

• 添加單一水印效果：C# 添加文本和圖片水印到PPT
• 洗掉水印效果：C# 洗掉PPT中的水印

（本文完）

轉載請注明出處！

標籤：.NET技术

上一篇：一日一技：微信開發-發送模板訊息

下一篇：WPF -- 使用Blend工具繪制Control樣式