Hallo zusammen,
ich habe nochmal eine Frage bezüglich einer Linie in einer mit VBA erstellten Grafik:
Ich möchte diese Linie formatieren, aber nur, wenn sie auch wirklich vorhanden ist.
Der Hintergrund dazu ist, dass ich dem Nutzer des Programms die Möglichkeit gebe aus sieben Optionen zu wählen, wenn er jedoch nur drei wählt, soll das Programm auch nur drei Linien anzeigen. Das funktioniert auch.
Nur das formatieren dieser Linien funktioniert nicht, VBA bricht das Berechnen des Codes an dieser Stelle ab.
Hier mein Code:
If ActiveChart.SeriesCollection(1) = True Then
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, ShowValue:=True
With Selection
.Border.ColorIndex = 57
.Border.Weight = xlMedium
.Border.LineStyle = xlContinuous
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlSquare
.MarkerSize = 5
End With
ActiveChart.SeriesCollection(1).DataLabels.Select
With Selection
.Position = xlLabelPositionBelow
End With
Else
MsgBox "Linie nicht vorhanden", vbInformation Or vbOKOnly, "Infobox"
End If
Vielen Dank für eure Hilfe!!
Viele Grüße,
Sebastian |