G
Guest
I inserted a "TextBox" (on slide 34) from the Control Toolbar so that the
user can enter a brief paragraph during the slideshow. Id like to print the
paragraph the user wrote on the printable slide. The "Textbox" on slide 34
is an "Active TextBox" (rather than a shape) inserted from the "Control
Toolbox".
Im guessing that I have to insert a macro for the "textbox", as well as a
macro for the Printable slide. Ive tried the folllowing, but its not
working! Any suggetions?
Thanks...
MACRO attached to textbox on slide 34:
Dim Report As String
Sub TextBox1_Change()
Report = TextBoxinput
End Sub
MACRO for printable slide:
Dim userName As String
Dim Report As String
Sub PrintablePage()
Dim printableSlide As Slide
Set printableSlide = ActivePresentation.Slides.Add(Index:=86, _
Layout:=ppLayoutText)
printableSlide.Shapes(1).TextFrame.TextRange.Text = _
userName & "'s" & " Description of Incident"
printableSlide.Shapes(2).TextFrame.TextRange.Text = _
Report
user can enter a brief paragraph during the slideshow. Id like to print the
paragraph the user wrote on the printable slide. The "Textbox" on slide 34
is an "Active TextBox" (rather than a shape) inserted from the "Control
Toolbox".
Im guessing that I have to insert a macro for the "textbox", as well as a
macro for the Printable slide. Ive tried the folllowing, but its not
working! Any suggetions?
Thanks...
MACRO attached to textbox on slide 34:
Dim Report As String
Sub TextBox1_Change()
Report = TextBoxinput
End Sub
MACRO for printable slide:
Dim userName As String
Dim Report As String
Sub PrintablePage()
Dim printableSlide As Slide
Set printableSlide = ActivePresentation.Slides.Add(Index:=86, _
Layout:=ppLayoutText)
printableSlide.Shapes(1).TextFrame.TextRange.Text = _
userName & "'s" & " Description of Incident"
printableSlide.Shapes(2).TextFrame.TextRange.Text = _
Report