Adding a Text via Keyboard Input to a Powerpoin Slide

[gennylk]

Hi There, I am aware of How to Enter Data from Keyboard using a Macro such as

Sub Test()
Dim Time As Integer
Time = InputBox("Enter the Time")
MsgBox (Time)
End Sub

But I wanted to use this Variable value and print in a Slide
For example say I wanted to Display the time as

"The time is : " & Time

in Slide 5 How can I do this ?
Thanks in advance,
Genny

 

[Worf]

Hi
See if this example is useful:

Sub Test()                  ' this is a PowerPoint macro
Dim t%
t = InputBox("Enter the Time")


ActivePresentation.Slides(5).Shapes("textbox1").TextFrame.TextRange.Text = _
"The time is " & t


End Sub