Grafiği tüm sayfayı kaplayacak şekilde genişletme

[fercan]

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 26.10.2006 by fercanc
'

'
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Chart 1").ScaleWidth 1.35, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes("Chart 1").ScaleHeight 1.44, msoFalse, _
msoScaleFromBottomRight
ActiveSheet.Shapes("Chart 1").ScaleWidth 1.16, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 1").ScaleHeight 1.18, msoFalse, msoScaleFromTopLeft
End Sub

Böyle bir makro ile ekteki dosyadaki grafiği sayfayı kaplayacak şekilde büyütebiliyorum. Ama benim istediğim şu; makronun içinde "Chart 1" geçmesin çünkü bu makro başka bir makronun parçası ve Chart 1 tanımı sürekli değişiyor.
mümkün mü? yardımlarınızı bekliyorum

 

[fercan]

Sub Macro5()
Range("D7:N30").Select
Selection.Cut Destination:=Range("A1:K24")
Range("A1:K24").Select
ActiveWindow.Zoom = 150
End Sub


Böyle bir yöntem buldum biraz amele ama yine de başka yöntem bilen varsa paylaşırsa sevinirim.