Ppr有没有像word一样的页脚功能？？？？

ning84

用VBA方法肯定不如word的效果好。费时费力，位置计算有问题，只能一点一点试效果。

1. Function AddTextMainNoteRightNote(Shps As Object)
   
2.     Dim Shp ' As Shape
   
3.     Dim Str, FontSize
   
4.         Str = "测试"
   
5.         FontSize = 25
   
6.             Set Shp = Shps.AddTextbox(msoTextOrientationHorizontal, 5, 685, 530, FontSize * 100)
   
7.             'Shps.AddTextbox msoTextOrientationHorizontal
   
8.             Shp.Name = "MainNote"
   
9.             With Shp.TextFrame.TextRange
   
10.                  .Text = Str
    
11.                  .Font.Size = FontSize
    
12.                 .Font.Bold = msoFalse
    
13.                   
    
14.             End With
    
15.             With Shp
    
16.                   .TextFrame.AutoSize = ppAutoSizeNone
    
17.                   .ShapeStyle = msoShapeStylePreset17
    
18.                   .Height = FontSize * 2.8
    
19.             End With
    
20.             
    
21.             ''
    
22.             FontSize = 15
    
23.             Set Shp = Shps.AddTextbox(msoTextOrientationHorizontal, 0, 760, 540, FontSize + 2)
    
24.             
    
25.             Shp.Name = "RightNote"
    
26.             With Shp.TextFrame.TextRange
    
27.                  .Text = Str
    
28.                  .Font.Size = FontSize
    
29.                  .Font.Bold = msoCTrue
    
30.             End With
    
31.             Shp.TextEffect.Alignment = msoTextEffectAlignmentRight
    
32.         
    
33.         
    
34. End Function

复制代码

ning84

自己出题自己做

1. Sub lll()
   
2.     Dim ShpRng As ShapeRange, S As Selection
   
3.          Set S = Application.ActiveWindow.Selection
   
4.          Set ShpRng = S.ShapeRange
   
5.          With ShpRng.TextFrame
   
6.               .WordWrap = msoFalse
   
7.               .AutoSize = ppAutoSizeShapeToFitText
   
8.               
   
9.               
   
10.          End With
    
11.          ShpRng.TextEffect.Alignment = msoTextEffectAlignmentCentered
    
12. End Sub
    

复制代码