Manual Zoom

[#1]

Hi all, how can I make an "auto zoom macro", that is, a macro controlled by some kind of slide witch zoom the actual sheet?

I found in the ApiGuide a sort of macro that could have work, but it is not so.

sub AutoZoom

up = AcriveDocument.GetApplicazion.GetUserPreferences

up.ClipboardZoom=200

ActiveDocument.GetApplication.SetUserPreferences up

end sub

This sub does not work. Why?

Thank you very much.

[#2]

You can see the not-working-qwv.

[#3]

Hi,

here are an example.

Good luck!

Rainer

[#4]

Thank you, thank you, very much!