Diagramm Punkte einfärben
23.05.2013 10:56:01
Philipp
ich schreibe zur Zeit ein Tool basiernd auf Excel / VBA, in welchem ich relativ viele Punkte in ein Diagramm zeichen lassen möchte. Nun habe ich habe allerdings noch ein zusätzliches Attribut für jedes Koordinatenpaar, welches die Farbe des Punktes beeinflussen soll. Je nach Inhalt der Zelle (S,M,L), soll der Punkt entweder rot, gelb oder grün werden.
Ich habe mich bereits in verschiedenen Forum umgesehen und versucht verschiedene Codes an mein Problem anzupassen, wobei ich aber bisher noch keinen Erfolg verbuchen konnte.
Hier mal mein bisheriger Code:
Sub change_color_points()
Dim Pt As Point
Dim Rng As Range
Dim x As Integer
Dim Y As Integer
Dim MyColor
Set Rng = ActiveSheet.Range("E:E")
x = 1
Y = 2
Application.ScreenUpdating = False
For Each Pt In Portfolio.ChartObjects("Portfolio").Chart.SeriesCollection(2).Points
Portfolio.ChartObjects("Portfolio").Activate
ActiveChart.SeriesCollection(2).Points(x).Select
If Range("E" & Y).Value = "S" Then
MyColor = 3
ElseIf Range("E" & Y).Value = "M" Then
MyColor = 5
Else
MyColor = 7
End If
With Selection.Border
.ColorIndex = MyColor
.Weight = xlThick
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlNone
.MarkerSize = 5
.Shadow = False
End With
x = x + 1
Y = Y + 1
Next Pt
Application.ScreenUpdating = True
End Sub
Hier mal meine bisherige Datei, damit Ihr mein Problem besser verstehen könnt.
https://dl.dropboxusercontent.com/u/40317881/Forum.xlsm
Achja ich benutze Office for Mac 2011
Schon einmal vielen Dank für die Hilfe!
Beste Grüße
Philipp