Şema Çizgilerini ve İşaretlerini VBA ile Değiştirme

Format_lines_markers

 

Sub reset_chart()

Dim srs As Series
Dim cht As Chart

    Set cht = Sheets("Sheet1").ChartObjects("Chart 1").Chart

    For Each srs In cht.SeriesCollection ' Eski datayi cikarma
        srs.Delete
    Next srs

' Yeni data ekleme

    For i = 2 To Sheets("Sheet1").Range("a65356").End(xlUp).Row
        Set srs = cht.SeriesCollection.NewSeries
        srs.Name = "=Sheet1!$A$" & i
        srs.XValues = "=Sheet1!$b$1:$e$1"
        srs.Values = "=Sheet1!$B$" & i & ":e" & i

    Next i

End Sub

Sub format_chart()
    Dim srs As Series
    Dim cht As Chart

Set cht = Sheets("Sheet1").ChartObjects("Chart 1").Chart

    For Each srs In cht.SeriesCollection ' Eski datayi cikarma
        'change marker color
        srs.MarkerStyle = xlMarkerStyleCircle ' isaretin tipini degistirme
        srs.MarkerSize = 10 ' isaretciniz buyuklugunu degistirme
        srs.MarkerBackgroundColorIndex = xlColorIndexNone ' rengini degistirme
        ' add circle color
        srs.MarkerForegroundColor = Range("f" & Application.WorksheetFunction.Match(srs.Name, Sheets("Sheet1").Range("a:a"), 0)).Interior.Color
        srs.Format.Line.Weight = 2 ' cizgi genisligi
        srs.Format.Line.DashStyle = xlContinuous
        ' cizgi rengi
        srs.Border.Color = Range("g" & Application.WorksheetFunction.Match(srs.Name, Sheets("Sheet1").Range("a:a"), 0)).Interior.Color
        srs.Border.Weight = 2
        srs.Border.LineStyle = xlDash
    Next srs

End Sub

Şema Çizgilerini ve İşaretlerini VBA ile Değiştirme

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


8 + 6 =