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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen