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