ich möchte in einem Blasendiagramm einzelne Blasen (z.B. Punkte mit Wert größer 2) per VBA einfä _ rben. Das habe ich auch hinbekommen
'Einfärben
Dim j As Integer
With Worksheets("Diagramm").ChartObjects(1).Chart.SeriesCollection(1)
For j = 1 To AnzahlMarke
If Cells(38 + j, 5) = 2 Then .Points(j).Interior.Color = RGB(217, 216, 210)
If Cells(38 + j, 5) >= 3 Then .Points(j).Interior.Color = RGB(191, 154, 86)
If Cells(38 + j, 5) >= 4 Then .Points(j).Interior.Color = RGB(217, 198, 106)
If Cells(38 + j, 5) >= 5 Then .Points(j).Interior.Color = RGB(217, 118, 95)
If Cells(38 + j, 5) >= 6 Then .Points(j).Interior.Color = RGB(44, 99, 255)
Next j
End With
Nun sollen aber alle Punkte im Diagramm eine Transparenz vom 0.4 haben. Wenn ich das nach dem oben stehenden Code einfüge, werden alle Punkte transparent aber auch neu eingefärbt. Das soll ja nicht passieren. Kann ich irgendwie nach dem Befehl interior.Color noch die Transparanz festlegen?
Vielen Dank für das tolle Forum!