Belirli bir alana zoom yapma. Makro ile.

[Bora K]

Merhabalar.

Makro kaydet yöntemi ile zoom yapmaya çalıştım lakin
tam olarak isteğim verimi alamadım.

Zoom yaparken sorun yok. Tekrar eski haline getirmek
isterken sayfa kayıyor. Acaba bununla ilgli kod yapılabilirmi.
Eğer bu şekilde bir kod yapılabilir ise zoom yapmak istediğim alan
(H1:H5) Saygılarımla.

Sub Zoom()
ActiveWindow.Zoom = 115
ActiveWindow.Zoom = 130
ActiveWindow.Zoom = 145
ActiveWindow.Zoom = 160
ActiveWindow.Zoom = 175
ActiveWindow.Zoom = 190
ActiveWindow.Zoom = 205
ActiveWindow.Zoom = 220
ActiveWindow.Zoom = 235
ActiveWindow.Zoom = 250
ActiveWindow.Zoom = 265
ActiveWindow.Zoom = 280
ActiveWindow.Zoom = 295
ActiveWindow.Zoom = 310
ActiveWindow.Zoom = 325
ActiveWindow.Zoom = 340

End Sub
Sub Küçült()
ActiveWindow.Zoom = 325
ActiveWindow.Zoom = 310
ActiveWindow.Zoom = 295
ActiveWindow.Zoom = 280
ActiveWindow.Zoom = 265
ActiveWindow.Zoom = 250
ActiveWindow.Zoom = 235
ActiveWindow.Zoom = 220
ActiveWindow.Zoom = 205
ActiveWindow.Zoom = 190
ActiveWindow.Zoom = 175
ActiveWindow.Zoom = 160
ActiveWindow.Zoom = 145
ActiveWindow.Zoom = 130
ActiveWindow.Zoom = 115
ActiveWindow.Zoom = 100
End Sub