To change the original size of a Excel sheet chart imported from Excel to PowerPoint

[erez]

Not sure I understood what you mean.



Sub grapgModify()
ActivePresentation.Slides(The slide number).Shapes(the shape's index).Width = put the height value
ActivePresentation.Slides(The slide number).Shapes(the shape's index).Height = put the witdh value
ActivePresentation.Slides(The slide number).Shapes(1).Top = 20

End Sub


If you work with office version earlier the 2007' then you can record a macro, and see the script created when you manually change the graph dimentions, including the shape's index which I can't know in advance.

Erez