Zooming in and out of a graph

[keilah]

i need to amend it......so only the graph with the micro button zoom out by say 1.5....and not to make the rest of the cells in the worksheet also in large by "say" 1.5....this to remain its normal size

only just the graph

here is the code


Sub Macro1()
intOrigZoom = ActiveWindow.Zoom
ActiveWindow.Zoom = intOrigZoom * 1.5
MsgBox "Click to close window 1.5"
ActiveWindow.Zoom = intOrigZoom
End Sub

[p45cal]

Something on the lines of:

Sub blah()
myWidth = ActiveSheet.Shapes("Chart 1").Width
myHeight = ActiveSheet.Shapes("Chart 1").Height
ActiveSheet.Shapes("Chart 1").ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 1").ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
DoEvents
MsgBox "Pause"
ActiveSheet.Shapes("Chart 1").Width = myWidth
ActiveSheet.Shapes("Chart 1").Height = myHeight
End Sub
a button dragged onto the chart from the Forms toolbar, then assigned to the above macro worked.

[keilah]

How do you centre the graph and bring it back to its origianl location ....using the above code

[p45cal]

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