vba代码添加水印
博客专区 > china008 的博客 > 博客详情
vba代码添加水印
china008 发表于3年前
vba代码添加水印
  • 发表于 3年前
  • 阅读 56
  • 收藏 0
  • 点赞 0
  • 评论 0

腾讯云 学生专属云服务套餐 10元起购>>>   

摘要: vba代码添加水印
 Sub 添加水印()
    With ThisDocument
        .Activate
        WordBasic.RemoveWatermark  '删除旧的水印
        .Sections(1).Range.Select
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader   '插入水印前需更改视图样式为页眉视图
        '设置插入水印,语法:表达式.AddTextEffect(预设文字效果, 文字内容, 字体名, 字体大小, 是否粗体, 是否斜体, 左侧位置, 顶部位置)
        Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject2110031, "VBA插入的水印", _
            "宋体", 36, False, False, 0, 0).Select
        With Selection.ShapeRange
            .Name = "PowerPlusWaterMarkObject2110031"   '形状类名
            .TextEffect.NormalizedHeight = False    '文字文字效果
            .Line.Visible = False   '线条是否可见
            .Fill.Visible = True    '填充是否可见
            .Fill.Solid             '填充类型(本例为纯色)
            .Fill.ForeColor.RGB = RGB(192, 192, 192)    '设定填充的颜色RGB值
            .Fill.Transparency = 0.5    '设置透明度50%
            .Rotation = 0             '设置旋转角度
            .LockAspectRatio = True     '锁定纵横比
            .Height = CentimetersToPoints(1.27) '高度
            .Width = CentimetersToPoints(8.25)  '宽度
            .WrapFormat.AllowOverlap = True     '是否允许重叠
            .WrapFormat.Side = wdWrapNone       '是否设置文字环绕
            .WrapFormat.Type = 3        '设置折回样式(本例设为不折回)
            .RelativeHorizontalPosition = wdRelativeVerticalPositionMargin  '设置水平位置与纵向页边距关联
            .RelativeVerticalPosition = wdRelativeVerticalPositionMargin    '设置垂直位置与横向页边距关联
            .Left = wdShapeCenter   '水平居中
            .Top = wdShapeCenter    '垂直居中
        End With
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument  '恢复视图样式到原来样式
    End With
End Sub
共有 人打赏支持
粉丝 6
博文 182
码字总数 30406
×
china008
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: