AW: Dynamisches Diagramm - bestimmte Balken einfäben
27.08.2012 14:52:34
fcs
Hallo Peter,
die Formatierung einzelner Datenpunkte der 2. Reihe ("Ende") kannst du per Makro steuern, abhängig vom Sichtbar-Status der Zeilen und Formatierung Fett ja/nein.
Hier ein entsprechendes Makro:
Sub Farbe_Punkte()
' Farbe_Punkte Makro
Dim objChart As Chart, objPoint As Point
Dim intPoint As Integer, lngRow As Long
Set objChart = ActiveSheet.ChartObjects(1).Chart
With ActiveSheet
With .Range(.Cells(9, 2), .Cells(9, 2).End(xlDown))
intPoint = 0
For lngRow = 1 To .Rows.Count
With .Cells(lngRow, 1)
If .EntireRow.Hidden = False Then
intPoint = intPoint + 1
Set objPoint = objChart.SeriesCollection(2).Points(intPoint)
If .Font.Bold = True Then
With objPoint.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 51, 153) 'dunkles Bblau
.Transparency = 0
.Solid
End With
Else
With objPoint.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(51, 153, 255) 'mittel-helles Blau
.Transparency = 0
.Solid
End With
End If
End If
End With
Next
End With
End With
End Sub
Das Makro kannst du z.B. in dein Diagrammaktualisieren-Makro für die -Achse integrieren, oder auch mit dem Calculate-Ereignis-Makro des Worksheets starten.
Die Beschriftung der Y-Achse kannst du für alle Balken hinzufügen:
1. Datenreihe "Ende" selektieren
2. Menü Layout--Beschriftungen--Zentriert
3. Beschriftung formatieren
im Dialogfenster dann unter "Beschriftungsoptionen" für "Beschriftung enthält" nur "Rubrikenname" wählen.
4. Farbe und Größe der Schrift legst du dann via Menü "Start" fest.
Gruß
Franz