Hat einer von euch ne Idee, wie ich das hinbekommen kann? Das wäre wirklich klasse, denn ich bin mit meinem Latein am Ende, und ich brauche das dringend für eine Präsentation. :(
Ich hoffe, ihr könnt mir helfen.
Gruß
Alex
Sub Saeulendiagramm()
'Säule jedes 2. Datenpunktes wird ausgeblendet
Dim Punkt As Point
For I = 2 To ActiveChart.SeriesCollection(1).Points.Count Step 2
Set Punkt = ActiveChart.SeriesCollection(1).Points(I)
With Punkt.Border
.LineStyle = xlNone
End With
Punkt.Shadow = False
Punkt.Interior.ColorIndex = xlNone
Next
End Sub
Sub LinienDiagramm()
'Line zwischen jedem 2. Datenpunkt wird ausgeblendet
For I = 1 To ActiveChart.SeriesCollection(1).Points.Count Step 2
Set Punkt = ActiveChart.SeriesCollection(1).Points(I)
With Punkt.Border
.LineStyle = xlNone
End With
Next
End Sub