ich möchte ein Diagramm, zu Vereinfachung, es stellt einen Kreis dar, von den Werten
in der Tabelle unabhängig machen.
Kann man das mit VBA erreichen?
mfg Gregor
Sub Diagramm_Erzeugen()
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "={""A"",""B"",""C""}"
ActiveChart.SeriesCollection(1).Values = "={1,2,3}"
ActiveChart.SeriesCollection(1).Name = "=""Beispiel"""
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Diagramm ohne Tabelle"
End With
End Sub
Gruß, Daniel
Sub konvertiere_in_Arrays()
Dim objSeries As Series
Dim objChart As Chart
On Error GoTo Zuviel_des_Guten
Set objChart = ActiveSheet.ChartObjects(1).Chart
For Each objSeries In objChart.SeriesCollection
objSeries.Values = objSeries.Values
Next
Exit Sub
Zuviel_des_Guten:
MsgBox "Arraygrenze überschritten!" & Space(10), 64, "Weise hin..."
End Sub
Allerdings darf die Anzahl der Zeichen in dem so entstehenden Array nicht größer als 250 sein.
Gruß K.Rola