Grafiekproblemen

[nootie]

Hoi ik ben hier ngmaals

Ik heb op mijn grafiek een stuk of 30 tegen reeksen geplaatst met telkens 1 x-coordinaat en 1 y-coordinaat. Dit wil dus zeggen een grafiek met 30punten.
Nu zou ik graag een code schrijven waarvan hij voor ieder reeks zijn x- en y-coordinaat gaat uithalen.

    Dim mySeries As Series
    Dim sChtName As String

    ''' Make sure a chart is selected
    On Error Resume Next
    sChtName = ActiveChart.name
    If Err.Number <> 0 Then
        MsgBox "This functionality is available only for charts " _
            & "or chart objects"
    Exit Sub
    End If
    If TypeName(Selection) = "ChartObject" Then
        ActiveSheet.ChartObjects(Selection.name).Activate
    End If
    On Error GoTo 0

    ''' Loop through all series in active chart
    For Each mySeries In ActiveChart.SeriesCollection
        '''' Convert X and Y Values to arrays of values
                'mySeries.DataLabels.NumberFormat = mySeries.DataLabels.NumberFormat
                Cells(6, 6) = mySeries.XValues
                 Cells(7, 6) = mySeries.Values
                mySeries.name = mySeries.name
    Next mySeries
End Sub

Deze code werkt behoorlijk goed, enkel zegt hij dat iedere x-waarde van mijn reeks een waarde 1 heeft. Maar in realiteit heb ik een punt1= (5,5) en een punt2 (4,6) en ook voor deze neemt hij een x-waarde die gelijk is aan 1. Weet er iemand het probleem?


2de probleem is dat ik geen chart(grafiek) kan selecteren. Mijn probleemsituatie is dat ik een chart aanmaak. Later roep ik hem terug op en probeer ik hem te wijzigen, maar ik kan hem niet selecteren.

Dim ch As ChartObject

Set ch = Worksheets("sheet1").ChartObjects.Add(100, 30, 400, 250)

With ch
    .Chart.SetSourceData Source:=Sheets("sheet1").Range("B11:B16"), PlotBy:=xlColumns
    .Chart.HasTitle = False
    .Chart.Axes(xlCategory, xlPrimary).HasTitle = False
    .Chart.Axes(xlValue, xlPrimary).HasTitle = False
    .name = "MyChart1"
End With

Charts(MyChart1").Select

Ik krijg dus een foutmelding bij Charts(MyChart1").Select. Ik kan niet werken met activechart... want mijn chart is dan niet meer actief.