VBA

Um...actually the question wasn't phrased correctly (different question)

If there was a textbox on slide 3, and another textbox on slide 6, and there
was nothing in both boxes. When someone types in "Hi!", how can you make that
same text appear in the textbox in slide 6?

Another thing: how can you remotely clear the text boxes on slides 3 and 6?

Thanks for everything!

In article <BE99BE1D-1180-41C0-BD93-FEC2E692B6DA RemoveThis @microsoft.com>, Alexf wrote:
> Um...actually the question wasn't phrased correctly (different question)
>
> If there was a textbox on slide 3, and another textbox on slide 6, and there
> was nothing in both boxes. When someone types in "Hi!", how can you make that
> same text appear in the textbox in slide 6?
>
> Another thing: how can you remotely clear the text boxes on slides 3 and 6?

That's much easier. <g>

For the first one:

Dim oSourceShape as Shape
Dim oTargetShape as Shape

With ActivePresentation
Set oSourceShape = .Slides(3).Shapes("BlahBlah")
Set oTargetShape = .Slides(6).Shapes("YadaYada")
End With

oTargetShape.TextFrame.TextRange.Text = _
oSourceShape.TextFrame.TextRange.Text


For the second:

Change the last bit to

oTargetShape.TextFrame.TextRange.Text = ""
oSourceShape.TextFrame.TextRange.Text = ""

You'll need to either name the shapes something sensible and use the names in
place of BlahBlah and YadaYada above, or find the existing names of the shapes
and use those.


-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Live and in personable in the Help Center at PowerPoint Live
Sept 21-24, San Diego CA, USA
www.pptlive.com

Um...How would that actually work?

On my computer, it doesn't work at all. Could you make a 2 slide presentation
w/ the same information so I can get an Idea? On My computer, it says that
the textbox "cannot have a textrange"

In article <1AAF0ACF-99FA-4117-A325-C9A9FEE8D84F DeleteThis @microsoft.com>, Alexf wrote:
> On my computer, it doesn't work at all. Could you make a 2 slide presentation
> w/ the same information so I can get an Idea? On My computer, it says that
> the textbox "cannot have a textrange"

I was thinking text box instead of text box *control*. They're different.
You did mention that you wanted this to work on text the user entered during a
slide show, and they can only do that with a text box control ... I should've
sorted that out. Sorry.

Sub Thing()

Dim oSourceShape As Shape
Dim oTargetShape As Shape

With ActivePresentation
Set oSourceShape = .Slides(1).Shapes("BlahBlah")
Set oTargetShape = .Slides(2).Shapes("YadaYada")
End With

oTargetShape.OLEFormat.Object.Text = _
oSourceShape.OLEFormat.Object.Text

End Sub

Sub NameTheShape()
' Use this to name the shapes as needed
With ActiveWindow.Selection.ShapeRange(1)
.Name = "Type the name you want to use here"
End With
End Sub


-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com
================================================
Live and in personable in the Help Center at PowerPoint Live
Sept 21-24, San Diego CA, USA
www.pptlive.com

If TextBox (Nameenter) was on slide 3, would it be put in place of "Thing"?
Would the Source Shape be Nameenter and the Target Shape be nameoutput
(slide 6)?

And what would "Name the shape" be? Slide 3 (Nameenter) or Slide 6
(nameoutput)?

Thanks!