Makro ile grafik üzerine seri çizdirme

[tamer42]

Merhabalar,

Ekli dosyada Grafik üzerine makro ile dikey çizgiler çizdirmek istiyorum.

Line1, Line2, Line3, .........., Line10

Aşağıda verilen kodda hata alıyorum,

    ActiveChart.SeriesCollection(1).Name = "=Sheet1!$E$2"
    ActiveChart.SeriesCollection(1).XValues = "=Sheet1!$D$2;Sheet1!$D$2"
    ActiveChart.SeriesCollection(1).Values = "={0\1}"

Yardımcı olabilir misiniz.

iyi Çalışmalar.