Lars,

why not use activewindow.zoom ?

less elegant.. but simple :)


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Lars Peter Nielsen" wrote:

Hi Bob

I have a code like this - just the principle - not the exact code
cause it is at work:

ActiveSheet.Shapes("Diagram 1").ScaleWidth 1.39, msoFalse,
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagram 1").ScaleHeight 1.61, msoFalse, _
msoScaleFromTopLeft
ActiveWindow.Visible = False

Range("I29").Select

Will it work? I think I get your thinking. Should I then make a zoom
macro (like the one you write) for each sheet?

LPN