Mehrdimensionaler Array als Range für Grafik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thomas,
ein kleines Beispiel:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Sub prcCreateChart(vntXValues As Variant, vntValues As Variant)
    Dim objChartObject As ChartObject
    Set objChartObject = Worksheets(1).ChartObjects.Add(200, 100, 400, 250)
    With objChartObject
        .Name = "Testdiagramm"
        With .Chart
            .ChartType = xlXYScatterSmooth
            .SeriesCollection.NewSeries
            .SeriesCollection(1).XValues = vntXValues
            .SeriesCollection(1).Values = vntValues
            .Legend.Delete
        End With
    End With
End Sub

Public Sub test()
    Dim x(9, 0), y(9, 0)
    Dim intIndex As Integer
    For intIndex = 0 To 9
        x(intIndex, 0) = intIndex ^ 2
        y(intIndex, 0) = intIndex * 2
    Next
    Call prcCreateChart(x, y)
End Sub

Gruß
Nepumuk

Hallo Thomas,
das geht so nicht. Du musst dein Array zerlegen, da du für jede Datenreihe ein eigenes benötigst.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Sub prcCreateChart(vntXValues1 As Variant, vntXValues2 As Variant, vntXValues3 As Variant)
    Dim objChartObject As ChartObject
    Set objChartObject = Worksheets(1).ChartObjects.Add(200, 100, 400, 250)
    With objChartObject
        .Name = "Testdiagramm"
        With .Chart
            .ChartType = xlXYScatterSmooth
            .SeriesCollection.NewSeries
            .SeriesCollection(1).Values = vntXValues1
            .SeriesCollection.NewSeries
            .SeriesCollection(2).Values = vntXValues2
            .SeriesCollection.NewSeries
            .SeriesCollection(3).Values = vntXValues3
            .Legend.Delete
        End With
    End With
End Sub

Public Sub test()
    Dim x1(9, 0), x2(9, 0), x3(9, 0)
    Dim intIndex As Integer
    For intIndex = 0 To 9
        x1(intIndex, 0) = intIndex ^ 2
        x2(intIndex, 0) = intIndex ^ 2.2
        x3(intIndex, 0) = intIndex ^ 2.4
    Next
    Call prcCreateChart(x1, x2, x3)
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Mehrdimensionaler Array als Range für Grafik

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

98 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrdimensionaler Array als Range für Grafik

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

98 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread