VBA powerpoint 插入文本框

Sub Macro1()
'
' 宏由 admin 记录，日期: 2009.04.16
'

ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(msoTextOrientationHorizontal, 223.875, 77.25, 175.875, 28.875).Select
ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoTrue
With ActiveWindow.Selection.TextRange.ParagraphFormat
.LineRuleWithin = msoTrue
.SpaceWithin = 1
.LineRuleBefore = msoTrue
.SpaceBefore = 0.5
.LineRuleAfter = msoTrue
.SpaceAfter = 0
End With
End Sub

手机wps表格怎么去插入一个文本框，当做一个占位符方便简单

你录制一个宏试试