ppt怎么加水印-ppt怎么加水印图片

1、

在现代社会中，PPT已经成为了一种常见的演示工具。为了保护图片的版权和提高演示效果，给PPT中的图片添加水印是一种常见的做法。介绍如何使用PPT给图片添加水印，以及一些相关的背景信息。

2、背景信息

水印是一种透明的标记，可以在图片上显示文字、图像或者其他图形。它的作用是保护图片的版权，防止他人盗用或者未经授权地使用。水印也可以提高图片的辨识度，使其在演示中更加突出。

3、选择合适的水印图像

在给PPT中的图片添加水印之前，我们需要选择一个合适的水印图像。水印图像应该是透明的、不会干扰到图片内容的。可以选择一些简单的图形、文字或者公司的Logo作为水印图像。

步骤一：打开PPT并导入图片

打开PPT软件并创建一个新的演示文稿。然后，在需要添加水印的页面上插入图片。可以通过点击“插入”选项卡，然后选择“图片”来导入图片。

步骤二：选择图片并点击“格式”选项卡

在插入图片后，选中该图片并点击“格式”选项卡。在“格式”选项卡中，可以找到“艺术字”、“形状填充”等功能。

步骤三：选择水印图像并调整透明度

在“格式”选项卡中，点击“形状填充”功能，选择“图片或纹理填充”，然后选择合适的水印图像。可以通过点击“文件”按钮，从计算机中选择一个水印图像。在选择完水印图像后，可以通过调整“透明度”滑块来控制水印的透明度。

步骤四：调整水印的位置和大小

在“格式”选项卡中，可以通过点击“艺术字”功能来调整水印的位置和大小。可以选择水印的位置，比如左上角、右下角等，并通过拖动调整水印的大小。

步骤五：保存并应用水印

在调整完水印的位置和大小后，点击“文件”选项卡，选择“另存为”来保存PPT文稿。保存完后，可以通过点击“幻灯片放映”来查看应用了水印的PPT文稿。

Sub AddWatermark()
    Dim sld As Slide
    Dim shp As Shape
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.Type = msoPicture Then
                shp.Fill.UserPicture "C:Watermark.png"
                shp.Fill.Transparency = 0.5
                shp.LockAspectRatio = msoFalse
                shp.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
                shp.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
                shp.Top = sld.Height - shp.Height - 20
                shp.Left = sld.Width - shp.Width - 20
                shp.LockAspectRatio = msoTrue
            End If
        Next shp
    Next sld
End Sub