keilah
08-23-2007, 01:19 AM
Hi Got the following code from this site yesterday.....
It does everything BUT........re postion the graph back to its starting point......
How do i get it to go back to it starting point........
here is the code...
Sub blah()
myWidth = ActiveSheet.Shapes("Chart 1").Width
myHeight = ActiveSheet.Shapes("Chart 1").Height
ActiveSheet.Shapes("Chart 1").ScaleWidth 1.5, msoFalse, msoScaleFromMiddle
ActiveSheet.Shapes("Chart 1").ScaleHeight 1.5, msoFalse, msoScaleFromMiddle
DoEvents
MsgBox "Pause"
ActiveSheet.Shapes("Chart 1").ScaleWidth 1 / 1.5, msoFalse, msoScaleFromMiddle
ActiveSheet.Shapes("Chart 1").ScaleHeight 1 / 1.5, msoFalse, msoScaleFromMiddle
End Sub
It does everything BUT........re postion the graph back to its starting point......
How do i get it to go back to it starting point........
here is the code...
Sub blah()
myWidth = ActiveSheet.Shapes("Chart 1").Width
myHeight = ActiveSheet.Shapes("Chart 1").Height
ActiveSheet.Shapes("Chart 1").ScaleWidth 1.5, msoFalse, msoScaleFromMiddle
ActiveSheet.Shapes("Chart 1").ScaleHeight 1.5, msoFalse, msoScaleFromMiddle
DoEvents
MsgBox "Pause"
ActiveSheet.Shapes("Chart 1").ScaleWidth 1 / 1.5, msoFalse, msoScaleFromMiddle
ActiveSheet.Shapes("Chart 1").ScaleHeight 1 / 1.5, msoFalse, msoScaleFromMiddle
End Sub