A shape object will have the following 4 properties

Top, Left, height, width

You should be able to set these properties so the chart all are located the
same on each slide. Use the Macro Record in PowerPoint while moving the
charts to get the correct values. This will give you the proper syntax and
locations to use when making your changes in Excel. You just have to change
the object in excel to use the Power Point object (ppApp) when referencing
the charts

"Scooter" wrote:

I am pasting some Excel charts of various sized into PowerPoint slides. I
would like to have the charts take up the width of the powerpoint slide and
all charts to have the same height in the slide. This what I am currently
doing

ActiveChart.ChartArea.Select
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen,
Format:=xlPicture
ppSlide.Shapes.Paste.Select
ppApp.ActiveWindow.Selection.ShapeRange.Align msoAlignLefts, True
ppApp.ActiveWindow.Selection.ShapeRange.Align msoAlignTops, True

This only puts the charts inthe top left corner but does not make them the
width of the slide. Is there a command that will do this?