Powerful PowerPoint for Educators: Using Visual Basic for Applications to Make PowerPoint Interactive

angle 3")
.TextFrame.TextRange.Text = .TextFrame.TextRange.Text & _
"And then the third pig, " & userName & _
", built a house of bricks. The brick house " & _
"was very strong."
End With
End Sub
This takes the shape named “Rectangle 3” on the seventh slide and adds text to it
that includes the user’s name (assuming you have used the
YourName
pro ce dure 
at some previous point to get the user’s name). If “Rectangle 3” is a Placeholder
(see be low for in formation about Placeholders), be sure it has something in it
when you try to run this code, or your text will not show up un til after you exit
Slide Show View.
As another example, imagine that you are hav ing a class discussion, and
you want to re cord the stu dents’ comments in your PowerPoint presentation.
Perhaps you are discussing the signs of spring, and you want the class to tell you
signs of spring re lated to plants and animals. Without technology, you would
write the in formation on the blackboard. However, this is awkward if you are us -
ing PowerPoint as part of the dis cussion; it is awkward to run from the com puter
to the blackboard, and it is awk ward to flip the lights off and on so students can
see the screen and the blackboard alternately. In stead, use this simple code to put 
the text right into the PowerPoint presentation:
Sub AddPlants()
Dim newstuff As String
newstuff = InputBox("What is a plant sign of Spring?")
If newstuff "" Then
With ActivePresentation.SlideShowWindow.View.Slide _
.Shapes(2).TextFrame.TextRange
.Text = .Text + Chr$(13) + newstuff
End With
End If
End Sub
Sub AddAnimals()
Dim newstuff As String
newstuff = InputBox("What is an an