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.
ActiveWindow.Zoom = True
ActiveWindow.Zoom = 100