Mehrdimensionaler Array als Range für Grafik

Forumthread: Mehrdimensionaler Array als Range für Grafik

19.11.2005 10:05:26

thomas

Hi,
ich würde gerne die range der grafik nicht mehr über range("a1:b50") angeben, sondern die grafik direkt auf einen mehrdimensionalen array beziehen ...
irgendwie so ...
ODIA.Chart.SetSourceData Source:=Range(f(0,1), f(35,Anzahldurchläufe)), _
PlotBy:=xlColumns
vielen dank im vouras

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mehrdimensionaler Array als Range für Grafik

19.11.2005 10:12:00

Nepumuk

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

AW: Mehrdimensionaler Array als Range für Grafik

19.11.2005 11:38:49

thomas

hi und schon mal vielen dank,
ich kämpfe derzeit noch etwas mit der komplexität von meinem array
f(0 bis 45, 0 bis anzahldurchläufe) .... 0 bis 45 steht für verschieden lange gewichtete durchschnitte; 0 bis anzahldurchläufe dh auf f(0,1) ist der wert des durchschnitts mit der id = 0 beim ersten durchlauf gespeichert ... die grafik die ich damit erstelle ist eine liniengrafik mit 45 durchschnitten - datenreihen
... hoffe du kannst mir nochmals helfen:-)
vielen dank im voraus

AW: Mehrdimensionaler Array als Range für Grafik

19.11.2005 12:40:09

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

Forumthread: Mehrdimensionaler Array als Range für Grafik

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Mehrdimensionaler Array als Range für Grafik

Forumthread: Mehrdimensionaler Array als Range für Grafik

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread