Diagramm Achsen skalieren über Zellinhalt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Franz,
nach Analyse Deines Codes (ist alles für Nichtwissende, wie ich es bin, sauber beschrieben), sind bei mir nun noch folgende Fragen offen:
Zur Formatierung der Zeichnungsfläche:
With .Line
.Visible = msoTrue
.DashStyle = msoLineSolid
.Weight = 1
.ForeColor.RGB = RGB(0, 0, 0) 'schwarz
End With
Was muss ich ändern, um die Zeichnungsfläche ohne Linie darzustellen? Gut auf weiß stellen und die Linienstärke auf 0 würde gehen, aber mich interessiert der richtige VBA Code.
Ich habe den Makrorekorder bemüht, der zeichnet dies allerdings nicht auf.
Die Zeichnungsfläche soll "ohne Füllung" im Code beschrieben werden.
Ich möchte auf der Y-Achse wahlweise einen Hilfsintervall und einen Hilfsstrichtyp anzeigen lassen, wenn H10 befüllt ist.
.MinorUnit = ActiveSheet.Range("$H$10").Value
Die Skalierung funktioniert schon mal. Nur wenn H10 leer ist, gibt es einen Laufzeitfehler und bei Inhalt "0" passiert gar nix.
Jetzt fehlt mir eine Abfrage, die bei befüllter Zelle H10 die Hilfslinien einblendet, oder wenn H10 leer ist die Hilfslinien ausblendet.
Dann möchte ich das Zahlenformat auf der Y-Achse anpassen:
Bei Werten kleiner als 10 in der Zelle E10 soll dieses Format gelten:
#.##0,00 ;[Rot]-#.##0,00
Bei Werten größer oder gleich 10 in der Zelle E10 soll dieses Format gelten:
#.##0 ;[Rot]-#.##0
Was muss ich tun, um das Diagramm ohne den Umweg eines "Aktualisierungsbuttons" sofort zu aktualisieren? Es geht mir da speziell um die richtige Skalierung, sowie die Haupt- und Hilfslinien.
Wenn Du mir das noch beantworten könntest, bin ich (glaube ich) halbwegs glücklich.
Vielen Dank im Voraus für eine Antwort.
Viele Grüße
Ralf

Hallo Ralf,
1. Formatierung der Zeichnungsfläche
ohne Linie, ohne Füll-Farbe - die Visible-Eigenschaft der Objekte muss auf msoFalse gesetzt werden

        'Formatierung Zeichnungsfläche
With .PlotArea.Format
With .Fill
.Visible = msoFalse
'            .ForeColor.RGB = RGB(0, 255, 255) ' hellblau
End With
With .Line
.Visible = msoFalse '=  msoTrue
'            .DashStyle = msoLineSolid
'            .Weight = 1.5
'            .ForeColor.RGB = 0 ' Schwarz
End With
End With

Zusätzliche Formatierungen der Y-Achse abhängig von Zellwerten.

        'Formatierung Y-Achse
Call DiagrammFormatAxis(objAxis:=.Axes(xlValue), _
strFontName:="Calibri", dblFontSize:=14)
Set objAxis = .Axes(xlValue)
With objAxis
'Hilfslinien an Achse/in Zeichnungsfläche
If ActiveSheet.Range("H10") > 0 Then
.MinorTickMark = xlTickMarkOutside 'Hilfslinie an Achse
.HasMinorGridlines = True 'Hilfslinien im Zeichnungsbereich einblenden
.MinorUnit = ActiveSheet.Range("H10").Value
With .MinorGridlines
With .Format.Line
.DashStyle = msoLineSolid
.Weight = 1
End With
End With
Else
.MinorTickMark = xlTickMarkNone 'keine Hilfslinie an Achse
.HasMinorGridlines = False 'Hilfslinien im Zeichnungsbereich ausblenden
End If
'Zahlenformat Y-Achse
If ActiveSheet.Range("E10")

Was muss ich tun, um das Diagramm ohne den Umweg eines "Aktualisierungsbuttons" sofort zu aktualisieren?
Du könntest z.B. die Diagramm-Formatierung automatisch starten wenn bestimmte Zellen geändert werden.
Der nachfolgende Code muß unter dem Tabellenblatt eingefügt werden, in dem die Werte geändert werden.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$H$10", "$E$10"
Call FormatDiagrammObjects
Case Else
'do nothing
End Select
End Sub

Gruß
Franz

'Erstellt unter Excel 2007 Sub FormatDiagramm_Reihe1_ohneFuellung() Dim objChart As Chart, objSerie As Series Set objChart = ActiveSheet.ChartObjects(1).Chart With objChart 'Formatierung Datenreihen _ Reihe 1 ohne Füllung Set objSerie = .SeriesCollection(1) objSerie.Format.Fill.Visible = msoFalse End With End Sub Sub FormatDiagramm_Reihe2_PlusMinus() Dim objChart As Chart Set objChart = ActiveSheet.ChartObjects(1).Chart With objChart 'Punkte der 2. Datenreihe gemäß pos. bzw. neg. Wert formatieren Call FormatDiagramm_Reihe_Fuell_Farbe(objReihe:=.SeriesCollection(2), _ Farbe_RGB_Plus:=RGB(85, 142, 213), Farbe_RGB_Minus:=RGB(160, 193, 232)) End With End Sub Sub FormatDiagramm_Reihe_Fuell_Farbe(objReihe As Series, _ Farbe_RGB_Plus As Long, Farbe_RGB_Minus As Long) 'Für Datenpunkte der Reihe für positive und negative Werte unterschiedliche _ Füllfarben setzen Dim objPoint As Point, iIndex As Integer Dim varWerte varWerte = objReihe.Values 'Basisfarbe der Reihe auf Wert für positive Werte setzen objReihe.Format.Fill.ForeColor.RGB = Farbe_RGB_Plus For iIndex = 1 To objReihe.Points.Count Set objPoint = objReihe.Points(iIndex) If varWerte(iIndex)

Sub FormatDiagrammObjects() Dim objChart As Chart, objAxis As Axis, iSerie As Integer Set objChart = ActiveSheet.ChartObjects(1).Chart With objChart 'Y-Achse ein-/ausblenden If ActiveSheet.Range("I11") = 0 Then 'primäre Y-Achse ausblenden .SetElement msoElementPrimaryValueAxisNone Else 'primäre Y-Achse einblenden .SetElement msoElementPrimaryValueAxisShow End If End Sub

Sub FormatDiagrammObjects() Dim objChart As Chart, objAxis As Axis, iSerie As Integer Set objChart = ActiveSheet.ChartObjects(1).Chart With objChart 'Y-Achse ein-/ausblenden If ActiveSheet.Range("I11") = 0 Then 'primäre Y-Achse ausblenden Call Diagramm_Y_Achse_ausblenden Else 'primäre Y-Achse einblenden Call Diagramm_Y_Achse_einblenden End If End Sub

Beliebteste Forumthreads (12 Monate)

Diagramm Achsen skalieren über Zellinhalt

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Diagramm Achsen skalieren über Zellinhalt

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread