如何用vba在第二页开始每页ppt左下角加入文本框，文本框的文字为首页的文字

zzpsx

用vba在第二页开始每页ppt左下角加入文本框，文本框的文字为首页的文字.zip (61.21 KB, 下载次数: 5)

2024-11-6 08:44 上传

点击文件名下载附件

如何用vba在第二页开始每页ppt左下角加入文本框，文本框的文字为首页的文字

taller

1. Option Explicit
   
2. Sub demo()
   
3.     Dim s As Slide, i As Integer
   
4.     Dim txt As String
   
5.     Dim shp As Shape
   
6.     For i = 1 To ActivePresentation.Slides.Count
   
7.         Set s = ActivePresentation.Slides(i)
   
8.         If i = 1 Then
   
9.             txt = s.Shapes(1).TextFrame2.TextRange.Text
   
10.         Else
    
11.             Set shp = s.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, _
    
12.                     s.Master.Height - 50, 200, 50)
    
13.             shp.TextFrame2.TextRange.Text = txt
    
14.             With shp.TextFrame2.TextRange
    
15.                 .Font.Size = 10
    
16.                 .Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
    
17.             End With
    
18.         End If
    
19.     Next i
    
20. End Sub

复制代码