Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Grafik Soruları (http://www.excel.web.tr/forumdisplay.php?f=169)
-   -   UserForm Chartspace Type değişikliği :( (http://www.excel.web.tr/showthread.php?t=169200)

BarisDagidir 23-12-2017 22:13

UserForm Chartspace Type değişikliği :(
 
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.

Kod:

'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



Saat 09:51

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.