Wie zu set X-Achse programmgesteuert auf einem Diagramm?

Question

Ich habe ein Diagramm in einem Arbeitsblatt in Excel und ich habe ein makro-set-up, so dass, wenn ich ändern Sie den Wert in eine bestimmte Zelle den Bereich der Daten in das Diagramm gesetzt A2 so weit wie die Nummer der Zeile entspricht in diesem bestimmten Zelle.

Was ich kann nicht scheinen, um in der Lage zu tun ist, ändern Sie die Achse der angegebenen Achse nicht mehr deckt den Bereich des Graphen, d.h.die aktuelle X-Achse festgelegt ist:

=Sheet1!$C$2:$C$600

Ich kann nicht herausfinden, wie ich das aktualisieren kann dies in einem makro.Jede Hilfe wäre sehr geschätzt werden.

Answer 1

Sie sollten in der Lage sein, die XValues-Eigenschaft auf die gleiche Art wie in den Lances Antwort für Ihre andere Frage.

Charts("chartname").SeriesCollection(1).XValues = "=MYXAXIS"

oder was auch immer Sie den benannten Bereich für die Werte der x-Achse.Wenn Sie mehrere Reihen im Diagramm, werden Sie wollen, ändern Sie den Wert in SeriesCollection zu finden die richtige Serie.

Answer 2

Ist die „bestimmte Zelle“ enthält die letzte Zeile Anzahl der Daten? (Es ist nicht ganz klar)

Angenommen Zelle F1 enthält die letzte Zeile in den Daten. Sie können eine Adresse und reichen wie dieses Konstrukt:

Dim rXVals As Range
Dim sAddress AS String

sAddress = "Sheet1!$C$2:$C$" & Worksheets("Sheet1").Range("F1").Value
Set rXVals = Range(sAddress)
Worksheets("Sheet1").ChartObjects(1).Chart.SeriesCollection(1).XValues = rXVals