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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen