excel plot in VBA

[mvrijbergen]

Hey,

Ik probeer een automatische plot te genereren in excel vba echter dit lukt me niet.

Ik wil twee vectoren tegen elkaar uitzettten, de x en y as een naam geven, en de lijnen een naam geven, lijn 1, lijn2 etc.

Hoe doe ik dat?

Groet michiel

 

[Relleboer]

Sub oxysense()

        Columns("L:M").Select
        Charts.Add
        ActiveChart.ChartType = xlXYScatterSmooth
    With ActiveChart
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time (Days)"
        .Axes(xlCategory, xlPrimary).AxisTitle.Font.Name = "Arial"
        .Axes(xlCategory, xlPrimary).AxisTitle.Font.FontStyle = "Vet"
        .Axes(xlCategory, xlPrimary).AxisTitle.Font.Size = 16
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "O2 (ppm)"
        .Axes(xlValue, xlPrimary).AxisTitle.Font.Name = "Ariel"
        .Axes(xlValue, xlPrimary).AxisTitle.Font.FontStyle = "Vet"
        .Axes(xlValue, xlPrimary).AxisTitle.Font.Size = 16
        .Axes(xlCategory, xlPrimary).Border.Weight = xlThick
        .Axes(xlValue, xlPrimary).Border.Weight = xlThick
        .Axes(xlValue, xlPrimary).TickLabels.Font.Size = 16
        .Axes(xlValue, xlPrimary).TickLabels.Font.Name = "ariel"
        .Axes(xlValue, xlPrimary).TickLabels.Font.FontStyle = "vet"
        .Axes(xlCategory, xlPrimary).TickLabels.Font.Size = 16
        .Axes(xlCategory, xlPrimary).TickLabels.Font.Name = "ariel"
        .Axes(xlCategory, xlPrimary).TickLabels.Font.FontStyle = "vet"
        .SeriesCollection(1).Border.Weight = xlThick
        .SeriesCollection(1).Name = Worksheets(1).Name
        .Legend.LegendEntries(1).Font.Name = "Arial"
        .Legend.LegendEntries(1).Font.FontStyle = "Vet"
    End With
End Sub

hier een code voor grafiek. kun je kijken wat je ongeveer nodig hebt