UserForm Chartspace Type değişikliği :(

[BarisDagidir]

Merhaba Arkadaşlar;

Chartspace konusunda eksik olduğum için yabancı bir kaynaktan bulmuş olduğum userform chartspace kodlarını kendi formuma göre düzenledim fakat type kısmını .chChartTypeColumnStacked olarak değiştirmek istediğimde gerekli kodu yazamıyorum : ( Aşağıda vermiş olduğum kodda nasıl bir düzeltme yapabilirim.... Şİmdiden teşekkürler iyi çalışmalar.

'Grafik Başlangıcı
Dim asSeriesNames(13)
    Dim asCategories(13)
    Dim aiValues(13)
    Dim chConstants
    Dim chtNewChart
 

    Dim myChtSpace As chartSpace

    asSeriesNames(0) = Worksheets("grf").Range("m45")
    

    asCategories(0) = Worksheets("grf").Range("n4")
    asCategories(1) = Worksheets("grf").Range("o4")
    asCategories(2) = Worksheets("grf").Range("p4")
    asCategories(3) = Worksheets("grf").Range("q4")
    asCategories(4) = Worksheets("grf").Range("r4")
    asCategories(5) = Worksheets("grf").Range("s4")
    asCategories(6) = Worksheets("grf").Range("t4")
    asCategories(7) = Worksheets("grf").Range("u4")
    asCategories(8) = Worksheets("grf").Range("v4")
    asCategories(9) = Worksheets("grf").Range("w4")
    asCategories(10) = Worksheets("grf").Range("x4")
    asCategories(11) = Worksheets("grf").Range("y4")
    asCategories(12) = Worksheets("grf").Range("z4")
    
    
    aiValues(0) = Worksheets("grf").Range("n45")
    aiValues(1) = Worksheets("grf").Range("o45")
    aiValues(2) = Worksheets("grf").Range("p45")
    aiValues(3) = Worksheets("grf").Range("q45")
    aiValues(4) = Worksheets("grf").Range("r45")
    aiValues(5) = Worksheets("grf").Range("s45")
    aiValues(6) = Worksheets("grf").Range("t45")
    aiValues(7) = Worksheets("grf").Range("u45")
    aiValues(8) = Worksheets("grf").Range("v45")
    aiValues(9) = Worksheets("grf").Range("w45")
    aiValues(10) = Worksheets("grf").Range("x45")
    aiValues(11) = Worksheets("grf").Range("y45")
    aiValues(12) = Worksheets("grf").Range("z45")
    
    
    
    'Set myChtSpace = giris1.ChartSpace1

    Set chConstants = ChartSpace1.Constants

    ' yeni chart ekleme Chartspace1.
    'Set chtNewChart = myChtSpace.Charts.Add
    
    

    ' Specify that the chart is a column chart.
    giris1.ChartSpace1.Charts(0).Type = chConstants.chChartTypeColumnClustered

    ' Bind the chart to the arrays.
    giris1.ChartSpace1.SetData chConstants.chDimSeriesNames, chConstants.chDataLiteral, asSeriesNames
    giris1.ChartSpace1.SetData chConstants.chDimCategories, chConstants.chDataLiteral, asCategories
    giris1.ChartSpace1.Charts(0).SeriesCollection(0).SetData chConstants.chDimValues, chConstants.chDataLiteral, aiValues

' Grafik Son