Makro ile çizilen çok sayıda çizgi kalınlığının "Line width" daha ince olması için?

[keremd]

Makro ile çizilen çok sayıda çizgi kalınlığının "Line width" daha ince olması için?

Merhaba,
çok sayıda veriyi tek bir grafikte üst üste makro ile çizdiriyorum.
Standart ayarlarda (2.25 pt) her bir çizginin kalınlığı çok fazla. Ben bütün çizgilerin daha ince olmasını istiyorum. Bunu bu makroya basit olarak nasıl eklerim?
teşekkürler.
Office 2007 kullanıyorum.

Sub grafik()
ActiveWindow.SmallScroll Down:=-3
Range("B2:IG802").Select
ActiveSheet.Shapes.AddChart2(227, xlLine).Select
ActiveChart.SetSourceData Source:=Range("Graph!$B$2:$IG$802")
ActiveChart.FullSeriesCollection(1).XValues = "=Graph!$A$2:$A$802"
End Sub

https://www.dropbox.com/s/m75zxdojg963k7m/Grafik.xls?dl=0

 

[Ömer BARAN]

Merhaba.
VBA kod yazma konusunda bilgim yeterli değil ama kodda yer alan "End Sub" satırından önce;

    With ActiveChart.Format.Line
        .Visible = msoTrue
        .Weight = 0.25
    End With

satırlarını ekleyerek denediğinizde sonuç alacağınızı sanıyorum.
Ayrıca koddaki " ActiveWindow.SmallScroll Down:=-3 " satırı da gereksiz duruyor, o satırı da silebilirsiniz.
Weight şeklinde başlayan satırdaki sayıyı değiştirerek istediğiniz kalınlığa göre ayarlamayı yaparsınız.
İyi günler dilerim.