>>>I am trying to copy all shapes on a first slide and then paste it over a second one. Macro recorder produces macro with ActiveWindow approach. Unless I turn PP visible it does not work in this way for me. Anybody could help?
>>
>>Mark,
>>
>>As you've seen, PowerPoint's ActiveWindow property doesn't work unless PowerPoint is visible. I haven't found any way to access an active slide when PowerPoint is not visible, so you'll have to manage the slide objects explicitly. You can access slide 1 with:
>>
oPresentation.Slides[1]
>>
>Yes, but how to copy all the shapes? If I do .Slides(1).Copy then the whole slide 1 is pasted with a size much smaller then original one.
If you want to make a copy of all the shapes from one slide to another, your best bet is to use the following:
oPres.Slides[1].Shapes.Range.Copy
oPres.Slides[2].Shapes.Paste
This assumes that both Slides 1 and 2 exist, and that Slide 1 has Shape objects on it.
- della