Problem plotting xyscatterchart using arrays

Discussion in 'Visual Basic ( VB )' started by sharathdude, May 21, 2010.

  1. sharathdude

    sharathdude New Member

    May 21, 2010
    Likes Received:
    Trophy Points:
    Hello everyone

    I am trying to plot a Xyscatter chart using arrays inside a chartspace. My code is as follows

    Private Sub CommandButton1_Click()

    'Create arrays for the x-values and the y-values
    'Dim xValues As Variant, yValues1 As Variant, yValues2 As Variant
    Dim ext_boom As Integer
    Dim xValues(2182), yValues(2182) As Variant

    For ext_boom = 1380 To 2182 Step 1
    [c53].Value = ext_boom
    xValues(ext_boom) = [c62].Value
    yValues(ext_boom) = [c63].Value

    ChartSpace1.Height = 494
    ChartSpace1.Width = 556
    Dim chConstants
    Dim Spreadsheet1 As OWC10.Spreadsheet

    'Set the data source of the chart to the Spreadsheet control.
    Set Spreadsheet1 = CreateObject("OWC10.Spreadsheet")
    Spreadsheet1.Range("A1", "Z1000") = Sheet1.Range("A1", "Z1000").Value
    Set ChartSpace1.DataSource = Spreadsheet1
    Set chConstants = ChartSpace1.Constants

    'Create a Xy scatter chart chart.
    ChartSpace1.Charts(0).Type = chChartTypeScatterLine

    'Set oChart = ChartSpace1.Charts.Add
    'Add a title to the chart
    'oChart.HasTitle = True
    'oChart.Title.Caption = "WORK ENVELOPE"

    With ChartSpace1.Charts(0)
    .SeriesCollection(0).SetData chConstants.chDimSeriesNames, chConstants.chDataBound, "a2"
    .SeriesCollection(0).SetData chConstants.chDimValues, chDataLiteral, xValues(2182)
    .SeriesCollection(0).SetData chConstants.chDimValues, chDataLiteral, yValues(2182)
    .SeriesCollection(0).Line.Color = "black"
    .SeriesCollection(0).Line.Weight = xlThin
    .SeriesCollection(0).Line.Miter = xlContinuous

    'Add a series to the chart with the x-values and y-values
    'from the arrays and set the series type to a column chart
    'Dim oSeries As WCSeries
    'Set oSeries = oChart.SeriesCollection.Add
    'With oSeries
    '.SetData chDimValues, chDataLiteral, xValues
    '.SetData chDimValues, chDataLiteral, yValues
    '.Type = chChartTypeScatterLine

    End With
    End Sub


    I get error " The specified chart dimension is not valid for current chart type"
    in the line
    .SeriesCollection(0).SetData chConstants.chDimValues, chDataLiteral, xValues(2182)

    Please help me to correct the code. I am also attaching my workbook

    Attached Files:

Share This Page

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice