本示例在活动演示文稿的第一张幻灯片中添加一个包含文本“Test Box”的文本框。

ActivePresentation.Slides(1).Shapes.AddTextbox(Orientation:=ksoTextOrientationHorizontal, _
    Left:=100, Top:=100, Width:=200, Height:=50).TextFrame _
        .TextRange.Text = "Test Box"