Pasting from Excel to Powerpoint using VBA

[Angribob]

Hi Guys,

I'm new here but i hope theres some VBA experts out there who can help me with this question.

Basically I am writing a code to automate various tasks in Excel and Powerpoint. The following sub pastes the selcted item into powerpoint.

what I cant figure out is how to paste the item into the second or subsequent page of the powerpoint deck. It always just pastes it into the fist slide?!?

Alternatively a code that moves the item from page 1 to page 2 would be really usefull.

Thanks to anyone who can help

bob




Public Function Paste()

'Sets up to use Powerpoint

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
' Reference active slide
Set PPSlide = PPPres.Slides _
(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)


' Paste chart
PPSlide.Shapes.Paste.Select

' Clean up
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing

 

[Andrew Poulsom]

That pastes to the active slide. To paste to the second slide try:

Set PPSlide = PPPres.Slides(2)

 

[Angribob]

Wow that works

Thanks!

 

[Angribob]

Ok I have another problem!

I need to actually activate the slide not simply paste there.

This will allow me to select the item after pasting it

(PPSlides.shapes.Paste.Select)

and thus be able to move it to the correct position.

Do you know how to do this?


The error message I am recieving reads

Run-time error '-2147188160 (80048240)':

ShapeRange (unknown member): Invalid request. To select a shape its view must be active

Thanks again!

Bob

 

[Andrew Poulsom]

To activate Slide 2 try:

PPPres.Slides(2).Select

 

[Angribob]

spot on it now works perfectly

thanks again