Mega Code Archive
Use the AddTextbox Method to add a text box to the eighth slide and assign text to it
<![CDATA[
Sub textBox()
Dim myTextBox As Shape
With ActivePresentation.Slides(1)
Set myTextBox = .Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=50, _
Width:=400, Height:=100)
myTextBox.TextFrame.TextRange.Text = "Corrective Lenses"
End With
End Sub
]]>