Macro to copy and paste cell into text box in PowerPoint

[Andy C Matthews]

Hi there, hope someone can help.
I'm writing a simple Macro to copy the text in a cell (the result of a
formula) into a Text Box in a specific PowerPoint slide. What I have so far
is shown below (I have named the text box in Powerpoint 'textbox1'). I'm
struggling to find a way of pasting though!
Can anyone help?

Thanks,
Andy
UK


Sub macInsertStatsFigures()

'Jump to the Exit Criteria worksheet
Worksheets("Stats 11").Activate

Dim strFindText As String
Dim strReplaceText As String

strReplaceText = Range("P7")

Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide

' Reference existing instance of PowerPoint
Set PPApp = GetObject(, "Powerpoint.Application")
' Reference active presentation
Set PPPres = PPApp.ActivePresentation
PPApp.ActiveWindow.ViewType = ppViewSlide

'Select the correct slide in the Presentation
PPApp.ActivePresentation.Slides(4).Select

'Select Textbox1 in powerpoint
PPApp.ActiveWindow.Selection.SlideRange.Shapes("textbox1").Select

'Paste the contents of strReplaceText into it




End Sub

 

[Jacob Skaria]

Make sure the text box name is correct.....(with or without spaces)

ActiveWindow.Selection.SlideRange.Shapes("Text Box 1").Select
ActiveWindow.Selection.TextRange.Text = strReplaceText

 

[Andy C Matthews]

Thank you kindly for your help Jacob.
The name of the text box is definitley correct.
I have tried adding the lines you suggested, however the debugger stops on
the second line with 'Object Doesn't support this property or method'

I am using Excel and PowerPoint 2003.

--Andy

 

[Andy C Matthews]

Apologies! Forgot to add "PPApp." at the start of each of those statements.
It's working now - thank you so much!

 

[Jacob Skaria]

Try using the index instead. I have tried this from a excel macro and this
works for me..

Set PPSlide = PPApp.ActivePresentation.Slides(4)
PPSlide.Shapes(1).Select
PPApp.ActiveWindow.Selection.TextRange.Text = strReplaceText

If this post helps click Yes