ppt vba 插入一个文本框并且设置文本边框为红色，代码怎么写

Question

如题所述

Answer 1

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

Answer 2

Sub myboxred()
With ActivePresentation.Slides(1)
With .Shapes.AddTextbox(msoTextOrientationHorizontal, 80, 200, 550, 100)
.Line.ForeColor.RGB = RGB(255, 0, 0)
.Line.Visible = msoTrue
End With
End With
End Sub本回答被网友采纳