VBA to copy text into a text box in Powerpoint

[Yuffster]

Hi all!

Really simple thing to get stuck on but......

I have an excel file to sort a large data set into spearate sections for each category. I then want to paste the data into the relevant text box in an existing template in Powerpoint.

I have got the code to open the Powerpoint presentation and copy the data range, but I am really struggling to paste the cells into the right text boxes. E.g. cell range A1:A5 need to go into text box 1, B1:B5 into text box 2 etc. I know it will be something really simple and obvious but it's driving me mad!

I am guessing it will all come down to the 'Set oPPTShape = oPPTFile.Slides(SlideNum).Shapes' part of the code? Any help would be hugely appreciated!

Dim oPPTApp As PowerPoint.Application
Dim oPPTFile As PowerPoint.Presentation
Dim oPPTShape As PowerPoint.Shape
Dim oPPTSlide As PowerPoint.Slide
Set oPPTApp = CreateObject("PowerPoint.Application")
oPPTApp.Visible = msoTrue
Set oPPTFile = oPPTApp.Presentations.Open(Filename:="myfilename")
Dim SlideNum As Integer
SlideNum = 15
oPPTFile.Slides(SlideNum).Select
Set oPPTShape = oPPTFile.Slides(SlideNum).Shapes

 

[oldbrewer]

record a macro where you copy some excel data, open power point and paste it in a text box, return to excel workbook, stop macro, examine the code

 

[Yuffster]

Sadly the macro stops recording when I switch to my Powerpoint file.

 

[Yuffster]

Quick update I think the problem is occurring with ActiveWindow.Selection when I try to select the text box; is this a references issue? And if so, which library should I check for to resolve it please?

 

[oldbrewer]

have you considered hyperlinks between powerpoint and excel ?