Grafik aktualisieren
11.08.2007 23:34:31
Yeshua
Ich habe mit eine Datei in Excel erstellt mit mehreren Blättern.
In dieser Datei habe ich zwei Makros programmiert.
Mein erstes erstelltes Makro ist "Zeilen eingeben" in allen Blättern.
Das zweite Makro ist "Zeilen Löschen" in allen Blättern.
In den letzten zwei Blättern befindet sich zwei Grafiken (Punkt XY).
Meine Frage: Ich benutze folgenden Code....
Sub Gráfico_de_Dispersión()
Sheets("DATOS").Select
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Gráfico de Dispersión").Delete
Charts.Add
With ActiveChart
.ChartType = xlXYScatter
Dim i, Serie As Integer
For Serie = 1 To ActiveChart.SeriesCollection.Count
.SeriesCollection(Serie).Delete
Next Serie
For i = 1 To Sheets("Hoja1").Range("A65536").End(xlUp).Row - 1
.SeriesCollection.NewSeries
.SeriesCollection(i).XValues = Sheets("DATOS").Cells(i + 1, 2)
.SeriesCollection(i).Values = Sheets("DATOS").Cells(i + 1, 3)
.SeriesCollection(i).Name = Sheets("DATOS").Cells(i + 1, 1)
Next i
.ApplyDataLabels ShowSeriesName:=True, ShowValue:=False
.Location xlLocationAsNewSheet, "Gráfico de Dispersión"
End With
Application.DisplayAlerts = True
End Sub
...................mein problem ist:::::::::::::
wenn ich diesen Code benutze, wird immer eine neue Grafik erstellt, obwohl ich nur eine Änderung der vorhandenen Grafik haben möchte.
...........Wie kann ich die Grafik automatisch aktualisieren?
Dankeschön für Ihre Hilfe,
Herzliche Grüsse
Yeshua
Anzeige