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?

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?

PowerPoint 2007 does not have the Macro Recorder anymore. Also all the
charts are of different sizes and I was looking for one command that would
make the charts take up the width of the PowerPoint slide without having to
do each one seperately. I guess that capability does not exist. Thanks
anyway.


"Joel" wrote:

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?