Hilfe bei dynamischem Chart: min/maxScale
14.01.2009 08:21:00
Daniel
die Anpassung des Charts an andere Spalten klappt wunderbar.
Nun möchte ich noch die min/max y-Werte für die Skalirung bestimmen.
Unten mein Versuch, das über WorkSheetFunction.Min zu machen.
Wenn ich nur die Spalte weiß, wie muss ich die Formel schreiben?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myDia As Chart
Dim rngA As Range
Dim rngB As Range
Dim strAdr As String
Dim strXAdr As String
Dim minY As Integer
Dim col As Integer
If Intersect(Target, [A6]) Is Nothing Then Exit Sub
Set myDia = Me.ChartObjects(1).Chart 'Diagramm der variablen zuweisen
col = [A7]
strAdr = Range(Cells(6, col), Cells(Sheets("Data").Cells(65536, col).End(xlUp).Row, col)). _
Address(ReferenceStyle:=xlR1C1)
'Bereich für die Rubrikenachse ermitteln
strXAdr = Range(Cells(6, col - 1), Cells(Sheets("Data").Cells(65536, col).End(xlUp).Row, col - _
1)). _
Address(ReferenceStyle:=xlR1C1)
'Datenbereich zuweisen
With myDia
.SeriesCollection(1).Values = "=Data!" & strAdr 'Reihe 1
.SeriesCollection(1).XValues = "=Data!" & strXAdr
.Axes(xlValue).MinimumScale = WorksheetFunction.Min(Sheets("Data").Cells(655536, col) & ":" & _
Sheets("Data").Cells(6, col))
.Axes(xlValue).MaximumScale = 100
End With
Set myDia = Nothing
End Sub