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?