RollZoom Property [Excel 2003 VBA Language Reference]
True if the IntelliMouse zooms instead of scrolling. Read/write Boolean.
Example
This example enables the IntelliMouse to zoom instead of scroll.
Application.RollZoom = True
Applies to | Application Object