Excel to PowerPoint, I'm so close

[chase]

Been wanting to do something like this for awhile, so i've been trying to change other people's formulas.

Right now, the code is pasting the same image on three different slides.
sheet 4 is being copied and pasted in each of the three powerpoint slides.

I'd like: sheet 2 to be on slide 1 sheet 3 to be on slide 2, and sheet 4 to be on slide 3

On sheet 1, pressing "button 2" will open and edit a powerpoint.
You'll see the problem.


In visual basics, the last sub "excelredo" is another code that is suppose to work, however it doesn't on my computer (no clue why) and I would prefer to use the first code because it opens powerpoint by itself and i eventually want this to work all by itself (no buttons).

But if the second sub is the only way to do it, then ill live with a button.

Thanks in advance!
I'd like sheet 2 to be on slide 1 sheet 3 to be on slide 2, and sheet 4 to be on slide 3
I'd like sheet 2 to be on slide 1 sheet 3 to be on slide 2, and sheet 4 to be on slide 3

 

[lianne]

Hi, Chase.

I tried your code and did this tweak.

rng.Copy
mySlide.Shapes.PasteSpecial DataType:=2 '2 = ppPasteEnhancedMetafile
Set myShape = mySlide.Shapes(mySlide.Shapes.Count)
rng2.Copy
myslide2.Shapes.PasteSpecial DataType:=2
Set myshape2 = myslide2.Shapes(mySlide.Shapes.Count)
rng3.Copy
myslide3.Shapes.PasteSpecial DataType:=2
Set myshape3 = myslide3.Shapes(mySlide.Shapes.Count)

I just tried re-arranging your "instructions" and it copied the east, central, and west ranges.