PPT中加水印及取消水印工具介绍

1、PPT中加水印及取消水印工具1、为了在和各种交流中增加PPT文档的保密性，希望给PPT文档添加水印；2、常用添加水印的方法是在母版中添加水印，这种方法添加的水印对于正文中有图片的情况时，水印显示不出来；若同一PPT有多个母版时需要对每个母版进行添加水印；3、手工将水印加到每页，这种方法可行，但加水印会耗费时间；同时再进行编辑时水印在最上一层需要删除后再编辑，不方便；4、本人开发了一个EXCEL小程序，用户可以设计多个水印，需要哪个水印就选择哪个水印，点击添加水印按钮即可对当前打开的PPT添加水印，点击取消水印时对当前打开的PPT的水印进行取消，在对外展示或生成PDF文档时非常方便，请各位试用。

2、一、概述二、VBA开发Sub AddWatermark() Dim markname As String markname = ThisWorkbook.Sheets(Sheet1).Cells(2, 3).Value & Dim wmark As shape: Set wmark = ThisWorkbook.Sheets(Sheet1).Shapes(markname) Dim PPT As PowerPoint.Application Dim pres As PowerPoint.Presentation On Error Resume Next Set PPT = GetObject(

3、, PowerPoint.Application) On Error GoTo 0 If PPT Is Nothing Then Set PPT = New PowerPoint.Application End If PPT.Visible = True Set pres = PPT.Presentations.Add Set pres = PPT.ActivePresentation Dim slidenum, i, j As Integer Dim tmark As ShapeRange Dim tname As String slidenum = pres.Slides.Count wm

4、ark.Copy For i = 1 To slidenum pres.Slides(i).Shapes.Paste j = pres.Slides(i).Shapes.Count 取本页的形状数，最后一个即刚插入的 pres.Slides(i).Shapes(j).Left = -200 左移200个单位 tname = pres.Slides(i).Shapes(j).Name 取SHAPE名称 pres.Slides(i).Shapes(j).Name = HYC WATERMARK Next iEnd Sub Sub delWatermark() Dim PPT As PowerPoi

5、nt.Application Dim pres As PowerPoint.Presentation On Error Resume Next Set PPT = GetObject(, PowerPoint.Application) On Error GoTo 0 If PPT Is Nothing Then Set PPT = New PowerPoint.Application End If PPT.Visible = True Set pres = PPT.ActivePresentation Dim slidenum, i, j As Integer slidenum = pres.

6、Slides.Count For i = 1 To slidenum pres.Slides(i).Shapes(HYC WATERMARK).Delete 取SHAPE名称 Next iEnd Sub1.打开EXCEL，新建文件在PPT中批量加水印及取消水印2.点击开发工具，若没有此菜单可以在选项中增加开发工具选项3.点击Visual Basic4.将以下程序复制到模块1中二、VBA开发5.在EXCEL中按以下进行设计，单元格位置需按以下方式。6.在设计状态下，将PPT添加水印按钮指定宏Addwatermark7.在设计状态下，将PPT取消水印按钮指定宏Delwatermark8.关闭设计状态，程序设计完毕三、使用步骤1.打开“在PPT中批量加水印及取消水印”EXCEL文档2.在SHEET1中任意位置编制水印，水印可以是图片、艺术字、文本框等，也可以是它们的组合，以能有效覆盖PPT中区域为益；可以在SHEET1中设计多套水印以便随时选用示例一：矩形艺术字水印示例二：图片（最好透时背景）示例三：多文本框的组合选中某水印时，在左上角出现类似矩形 2，图片 6，组合 57等名称三、使用步骤3.选中某一水印，如组合 57，在左上角公式名称中有“组合 57”字样，选中并复制；示例三：多文本框的组合4.将复制内容粘贴到EXCEL的水印名称后的单元格，