Resize copied Chart from Excel to Power Point

[LPrenici]

Dear All,

I would like to set up a Macro in PPT.

The idea is to Paste my allready copied Charts from xls to PPt in a particular size and Place.
Does anybody have an idea how this could work?

Many thanks in advance

Laura

[mikeTRON]

I used this sloppy macro for a bit when I had to copy and paste my way to success for a TON of powerpoints.

Sub PasteTable()

Dim myShape As Object
'paste excel table as enhanced metafile, then resize to full width

ActiveWindow.View.PasteSpecial DataType:=ppPasteEnhancedMetafile
Set myShape = ActiveWindow.Selection.ShapeRange(1)
With myShape
.LockAspectRatio = True
.Top = 80 'points from top
.Left = 10 'points from left
.Width = 700 'points wide
End With
End Sub

[LPrenici]

Great! thank you. It works very well!
Do You know if there is an opertunity to put the macro in a Button like in xls. so that I push the Button and the macro runs automaticly?

[mikeTRON]

So you can do a few things. You can assign a hot key to it.
What I did was insert the code in a new power point file and called it "personal macro" I then assigned that specific macro to the quick buttons at the top of screen so I could have the file open and hit alt-4 and it would run.

[mikeTRON]

So with it assigned as a hot key or on the top quick access bar, you have to have that file open. So I'd either run a macro to open the two ppt files or just open it manually to then copy and paste with the shortcut