怎么用vba在第二张ppt里面插入一个文本框

Question

如题所述

Answer 1

Sub abc()
    With ActivePresentation.Slides(2)
         With .Shapes.AddTextbox(msoTextOrientationHorizontal, 80, 200, 550, 100)
              .TextFrame.TextRange.Font.Color = vbRed
              .TextFrame.TextRange.Font.Size = 38
              .TextFrame.TextRange.Text = "第二张幻灯片插入了一个文本框"
         End With
    End With
End Sub

点击图片查看动画效果