Gantt Grafik Uygulama Hk. Açıklama

[skaan]

Merhaba;
Raporuma gantt grafik uygulaması yaptım. Uygulama başarılı fakat uygulamayı yaparken aşağıdaki kodları da kullandım. Bu kodları grafiğime uyguladım . Yalnız bu kodların ne anlama geldığını bana açıklayabilirmisiniz. Uygulamayı yaptım ama ezbere yapmak istemiyorum.
Kodları kısaca açıklayabilirmisiniz.. Ornek dosyayı yardımcı olması için ekledim..yardımcı olabilirseniz çok sevinirim..

Kodlar :

Modüle Eklenen

Sub Macro1()
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.Axes(xlValue).MinimumScale = 41086
End Sub


Sayfaya Eklenen

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.Axes(xlValue).MinimumScale = _
Application.WorksheetFunction.Min(Range("Start")) - 7

ActiveChart.Axes(xlValue).MaximumScale = _
Application.WorksheetFunction.Max(Range("End")) + 7

ActiveWindow.RangeSelection.Select


End Sub



Tşk.
Saygılarımla
İyi günler dilerim..
Skaan