VBA: Diagramm-Source-Data ändern
27.10.2003 12:52:10
Tobias
ich möchte die Datenquelle meines Diagramms schneller ändern können, falls ich eine Zeile einfüge... wie muss ich folgenden Code ändern?
Public zeile, spalte As Integer
Sub Name()
zeile = 5
spalte = 3
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Values = _
"=(Sheet1!R5C3,Sheet1!R5C7,Sheet1!R5C11,Sheet1!R5C15,Sheet1!R5C19,Sheet1!R5C23,Sheet1!R5C27,Sheet1!R5C31)"
ActiveChart.SeriesCollection(2).Values = _
"=(Sheet1!R5C4,Sheet1!R5C8,Sheet1!R5C12,Sheet1!R5C16,Sheet1!R5C20,Sheet1!R5C24,Sheet1!R5C28,Sheet1!R5C32)"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Name"
End With
End Sub
ich möchte, dass dann sowas ähnliches rauskommt:
ActiveChart.SeriesCollection(1).Values = _
"=(Sheet1!R"zeile"C"spalte",Sheet1!R"zeile"C"spalte+3"...