Diagramm Säulen einfärben
07.11.2005 10:01:54
Mola
hatte mir mit Eurer Hilfe dieses Diagramm per Makro erstellen lassen.
Jetzt möchte ich noch, dass wenn die Werte die 100% Marke durchbrechen, dass die Balken rot eingefärbt werden. Es gibt zwar einiges in der Recherche zu diesem Thema - habe ich auch schon versucht - nur gelingt es mir einfach nicht. Könnte mir hier jemand nochmal helfen?
Vielen Dank im voraus!
Gruß
Mola
Sub Diagramm()
Dim cht As ChartObject
Dim tmpstr, tmpstr1 As String, l!, t!
tmpstr = "=" & ThisWorkbook.Name & "!ADR"
tmpstr1 = "=" & ThisWorkbook.Name & "!PLG"
With Sheets("JKTL")
For Each cht In ActiveSheet.ChartObjects
cht.Delete
Next cht
Range("B11").AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=True
l = .Range("F13").Left: t = .Range("F13").Top
.ChartObjects.Add(l, t, 510, 240).Name = "Diagramm3"
With .ChartObjects("Diagramm3").Chart
.ChartType = xlColumnClustered
.SeriesCollection.NewSeries
.Axes(xlValue).HasMajorGridlines = False
.Axes(xlValue).HasMinorGridlines = False
With .SeriesCollection(1)
.XValues = tmpstr1
.Values = tmpstr
.ApplyDataLabels ShowValue:=True
.DataLabels.Font.Size = 8
End With
.HasLegend = False
.Location Where:=xlLocationAsObject, Name:="JKTL"
.ChartArea.Font.Size = 6
End With
End With
Application.SendKeys "{esc}"
End Sub
