ich habe folgendes Problem. Ich nutze eine Punktwolken-Grafik, in der ich einzelne Punkte aufgrund ihres Wertes farblich markieren möchte. Dazu habe ich das hier im Archiev stehende Modul genutzt und leicht verändert:
________
Sub Point_Trick()
Dim objDataSeries As Series
Dim varDataPoint As Variant
Dim intNumber As Integer
Set objDataSeries = Workbooks("data.xls").Worksheets("punkte RD").ChartObjects(1).Chart.SeriesCollection(1)
For Each varDataPoint In objDataSeries.Values
intNumber = intNumber + 1
If varDataPoint > 0.75 Then
objDataSeries.Points(intNumber).MarkerForegroundColorIndex = 4
objDataSeries.Points(intNumber).MarkerBackgroundColorIndex = 4
objDataSeries.Points(intNumber).MarkerStyle = xlMarkerStyleTriangle
ElseIf varDataPoint < 0.25 Then
objDataSeries.Points(intNumber).MarkerForegroundColorIndex = 3
objDataSeries.Points(intNumber).MarkerBackgroundColorIndex = 3
objDataSeries.Points(intNumber).MarkerStyle = xlMarkerStyleCircle
Else
objDataSeries.Points(intNumber).MarkerForegroundColorIndex = 6
objDataSeries.Points(intNumber).MarkerBackgroundColorIndex = 6
objDataSeries.Points(intNumber).MarkerStyle = xlMarkerStyleDiamond
End If
Next varDataPoint
End Sub
__________________________
Zwei Probleme tauchen auf: wenn ich die Farben verändere, so entsteht eine Grafik, in der jeder einzelne Punkt eine andere Form annimmt. Frage: wie kann ich dies unterdrücken.
Als Lösung dazu habe ich versucht auch noch die Form zu definieren. Das haut jedoch nicht hin, weil dann zwar weiterhin jeder Punkt eine andere Form annimt, jedoch zugleich auch eine andere Farbe.
Was muß ich tun, damit ich in Abhängigkeit des Wertes des Punktes sowohl die Farbe als auch die Form festlegen kann?
Ciao,
Rolf