Zoom Problem

[adiarnon]

hi,

i want to create a button for zoom

that will

fit zoom to the window and apply the zoom to all sheets.

im using the IE Plugin

i havr the macros-

sub FitToWindow
ActiveDocument.ActiveSheet.FitZoomToWindow
end sub

sub ApplyZoom
ActiveDocument.ActiveSheet.ApplyZoomToAllSheets
end sub

if im using two buttons - one for each macro - its working...

but, i want one button!

i tried to use Call ApplyZoom in the FitToWindow

i tried  one macro with the two actions

i tried to put in the same button two action

nothing ias working...

please help

tnx,

adi

[PrashantSangle]

Hi,

Write both command in one Sub

Try like

Sub ApplyZoom

ActiveDocument.ActiveSheet.FitZoomToWindow

ActiveDocument.ActiveSheet.ApplyZoomToAllSheets

End Sub

[adiarnon]

hi and tnx

i tried it.

its doing nothing...

adi