VBA powerpoint 插入文本框
答案:2 悬赏:70 手机版
解决时间 2021-02-07 13:56
- 提问者网友：留有余香
- 2021-02-07 11:07
我有一个幻灯片文件，现在要在第二张幻灯片上插入一个文本框。怎么用VBA实现？？ office 2000 SlideShowWindows(Index:=1).View.Next 貌似不行，不知为什么
最佳答案
- 五星知识达人网友：几近狂妄
- 2021-02-07 12:14
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
'
' 宏由 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
全部回答
- 1楼网友：患得患失的劫
- 2021-02-07 13:00
你好！
你录制一个宏试试
如果对你有帮助，望采纳。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯