|
Hallo,
ich möchte ein Excel-Oberlächendiagramm mittels VBA füllen. Wer kann helfen?
- Die vertikale Achs-Bezeichnung (Datenreihe1 bis ...) soll über einen Vektor V erfolgen
- Die horizontale Achs-Bezeichnung soll über einen Vektor H verändert werden
- Die "Datenpunkte" sollen über eine Matrix A verändert werden
- Alle Vektoren und die Matrix wurden mit werten belegt
- im vorhandenen Programmpeispiel erfolgte eine Feflermeldung mit "Typen unverträglich"
Private Sub CommandButton1_Click()
Dim A() As Variant
Dim B() As Double
Dim dimA As Integer
Dim dimB As Integer
dimA = 4: dimB = 2: ReDim A(dimA, dimA): ReDim B(dimB, dimB)
For i = 0 To dimA
For j = 0 To dimA
A(i, j) = Cells(3 + i, 5 + j) ' Debug.Print "A(" & i & "," & j & ")=" & A(i, j)
Next j 'Debug.Print "_____i=" & i & " ______"
Next i
For i = 0 To dimB
For j = 0 To dimB
B(i, j) = Cells(3 + i, 5 + j) 'Debug.Print "B(" & i & "," & j & ")=" & B(i, j)
Next j ' Debug.Print "_____i=" & i & " ______"
Next i
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.SetSourceData Source:=A
End Sub
|