Powerpoint VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Powerpoint
  4. Use the AddTextbox Method to add a text box to the eighth slide and assign text to it
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