A family of Microsoft presentation graphics products that offer tools for creating presentations and adding graphic effects like multimedia objects and special effects with text.
In Steve's example, change "Your Text Here" to RoundScore as in
With ActivePresentation.Slides(2).Shapes("Rectangle1")
.TextFrame.TextRange.Text = RoundScore
End With
or something like this
With ActivePresentation.Slides(2).Shapes("Rectangle1")
.TextFrame.TextRange.Text = "The score is" & RoundScore & ". Have a nice day."
End With
David Marcovitz
Author of Powerful PowerPoint for Educators