AW: Diagramm Userform
19.07.2004 16:05:29
Weichei
Hallo Werner
Dia automatische Skalierunung kannst du nur verhindern, indem du selbst eine Skalierunung definierst, wie folgt:(Ich habe hier ein Spinbutton erzeugt, mit dem ich dem Graphen immer wieder neue Daten zuordne)
Private Sub SpinButton1_Change()
Dim Diagramm As String, Bereich As String, strAnfang As String, strEnde As String
Dim j As Long, Intervall As Long, i As Long, DatenAnzahl As Long
Dim r As Range
Datennamen = Application.ActiveWorkbook.Name
i = 0
Intervall = Cells(1, 10) 'Wie viele Daten sollen im Graphen angezeigt werden
DatenAnzahl = Cells(1, 11) 'Wieviele Daten sind vorhanden, die angezeigt werden sollen
SpinButton1.Min = Intervall
SpinButton1.Max = DatenAnzahl
Diagramm = "Diagramm 1" 'Dein Diagrammname einfügen
Cells(1, 12) = SpinButton1.Value
Range("A1").Activate 'Dia Daten müssen unter dieser Zelle stehen
Set r = ActiveCell
j = Cells(1, 12)
i = j - Intervall
strAnfang = Str(i + 1)
strAnfang = Mid$(strAnfang, 2)
strEnde = Str(j + 1)
strEnde = Mid$(strEnde, 2)
Bereich = "=Tabelle1!" + "R" + strAnfang + "C8:R" + strEnde + "C8"
ActiveSheet.ChartObjects(Diagramm).Activate
'Diagrammquelle verschieben
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range(r.Offset(i, 0), r.Offset(j, 0)), PlotBy _
:=xlColumns
'X-Achse neu definieren
ActiveChart.SeriesCollection(1).XValues = Bereich
DoEvents
Windows(Datennamen).Activate
End Sub
Bei weiteren Fragen wende dich direkt an mich
MfG Christian