Makro erstellen
22.12.2016 13:40:26
Franky
ich hab folgendes Makro für ein Diagramm und möchte hier die ersten beiden Linien einfärben.
SeriesCollection(1) soll Orange werden und
SeriesCollection(2) gestrichelt und Grau.
Die Linien sind mit so Markierungs-Vierecken und ich bekomm eseinfach nicht hin die Gesamte Linie einzufärben.
Wie bekomm ich diese Markierungspunkte auch eingefärbt?
und was könnte man daran noch optimieren?
Vielen Dank für eure Hilfe.
Grüße,
Franky
Sub Diagrammerstellen()
Dim rngBereich As Range
With ActiveWorkbook.ActiveSheet
If .ChartObjects.Count > 0 Then .ChartObjects.Delete
Set rngBereich = Union(.Range("I23:AB23"), .Range("I26:AA26"), _
.Range("I11:AB11"), .Range("I17:AB17"))
.Shapes.AddChart XlChartType.xlLineMarkers, 0, 0, 0, 0
'Änderung der Legende und der Linien
With .ChartObjects(1).Chart
.SetSourceData Source:=rngBereich
.SeriesCollection(1).Name = "=""AGW"""
.SeriesCollection(1).Border.Weight = xlThick
.SeriesCollection(1).XValues = "=Tabelle1!I5:AB5"
.SeriesCollection(2).Name = "=""AGW Vorwoche"""
.SeriesCollection(2).Border.Weight = xlThick
.SeriesCollection(3).Name = "=""AGN"""
.SeriesCollection(3).ChartType = xlColumnClustered
.SeriesCollection(4).Name = "=""AGP"""
.SeriesCollection(4).ChartType = xlColumnClustered
.SeriesCollection(2).Border.ColorIndex = 45
.SeriesCollection(2).Format.Line.DashStyle = msoLineDash
'Farbe ändern der Balken
.SeriesCollection(3).Interior.ColorIndex = 30
.SeriesCollection(4).Interior.ColorIndex = 10
'Datenbeschriftung hinzugefügt
.SeriesCollection(1).ApplyDataLabels
'Überzählige Datenbeschrifungen Löschen
.SeriesCollection(1).Points(2).DataLabel.Select
Selection.Delete
.SeriesCollection(1).Points(3).DataLabel.Select
Selection.Delete
.SeriesCollection(1).Points(4).DataLabel.Select
Selection.Delete
.SeriesCollection(1).Points(6).DataLabel.Select
Selection.Delete
.SeriesCollection(1).Points(7).DataLabel.Select
Selection.Delete
.SeriesCollection(1).Points(9).DataLabel.Select
Selection.Delete
.SeriesCollection(1).Points(10).DataLabel.Select
Selection.Delete
.SeriesCollection(1).Points(12).DataLabel.Select
Selection.Delete
.SeriesCollection(1).Points(13).DataLabel.Select
Selection.Delete
.SeriesCollection(1).Points(15).DataLabel.Select
Selection.Delete
.SeriesCollection(1).Points(16).DataLabel.Select
Selection.Delete
.SeriesCollection(1).Points(18).DataLabel.Select
Selection.Delete
.SeriesCollection(1).Points(19).DataLabel.Select
Selection.Delete
End With
'Positionierung des Diagramms
.ChartObjects(1).Top = .Range("h30").Top
.ChartObjects(1).Left = .Range("h30").Left
.ChartObjects(1).Height = 430
.ChartObjects(1).Width = 1400
End With
End Sub
Anzeige