Macro to zoom out and zoom in chat

[mfond1]

I need excel macro to zooom out and zoom in chat (pie chat)

 

[Andrew Poulsom]

Try:

Sub ZoomIn()
    With ActiveSheet.ChartObjects(1)
        Range(.TopLeftCell, .BottomRightCell).Select
    End With
    ActiveWindow.Zoom = True
End Sub

Sub ZoomOut()
    ActiveWindow.Zoom = 100
End Sub

 

[mfond1]

I

Try:
It worked. The problem am having is that the whole sheet is zooming out instead of the pie chat alone. I want only the chat to zoomin and out. Thank you.
code]
Sub ZoomIn()
With ActiveSheet.ChartObjects(1)
Range(.TopLeftCell, .BottomRightCell).Select
End With
ActiveWindow.Zoom = True
End Sub

Sub ZoomOut()
ActiveWindow.Zoom = 100
End Sub
[/code]

 

[Andrew Poulsom]

I don't know how to zoom just the chart, sorry.