水印的大小 怎么调节不了

chenlifeng123

Selection.ShapeRange.TextEffect.FontSize = 120
这一句是调节大小 的,但是不生效.
我根据 提示,修改Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject223380936, "我们", "宋体", 1, False, False, 0, 0).Select中的语句"1",为我想要的字号,也没有反应;录制后的代码不能用.

1. Sub 宏7()
   
2.             
   
3.         ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   
4.           Selection.HeaderFooter.Shapes.AddTextEffect(PowerPlusWaterMarkObject223380936, "我们", "宋体", 1, False, False, 0, 0).Select
   
5.          Selection.ShapeRange.Height
   
6.         Selection.ShapeRange.TextEffect.NormalizedHeight = False
   
7.         Selection.ShapeRange.Line.Visible = False
   
8.         Selection.ShapeRange.Fill.Visible = True
   
9.         Selection.ShapeRange.Fill.Solid
   
10.         Selection.ShapeRange.Fill.ForeColor.RGB = RGB(171, 171, 171)
    
11.         Selection.ShapeRange.Fill.Transparency = 0.5
    
12.         Selection.ShapeRange.Rotation = 315
    
13.         Selection.ShapeRange.LockAspectRatio = True
    
14.         Selection.ShapeRange.Height = CentimetersToPoints(7.8) '(4.13)
    
15.         Selection.ShapeRange.Width = CentimetersToPoints(15.6) '(16.52)
    
16.         Selection.ShapeRange.WrapFormat.AllowOverlap = True
    
17.         Selection.ShapeRange.WrapFormat.Side = wdWrapNone
    
18.         Selection.ShapeRange.WrapFormat.Type = 3
    
19.         Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeVerticalPositionMargin
    
20.         Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
    
21.         Selection.ShapeRange.Left = wdShapeCenter
    
22.         Selection.ShapeRange.Top = wdShapeCenter
    
23.         ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument '退出页眉和页尾设置
    
24. End Sub

复制代码