![]() |
Betrifft: Linie in einer Grafik ansprechen
von: Sebastian
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
![]() |
Betrifft: AW: Linie in einer Grafik ansprechen
von: Beverly
![]() |
Betrifft: AW: Linie in einer Grafik ansprechen
von: Sebastian
![]() |
Betrifft: AW: Linie in einer Grafik ansprechen
von: Beverly
Geschrieben am: 02.07.2008 11:45:22
Hi Sebastian,
und weshalb stellst du die selbe Frage in mehreren Foren?
![]() |
Betrifft: AW: Linie in einer Grafik ansprechen
von: Sebastian
Geschrieben am: 02.07.2008 12:03:33
Hi Karin,
wollte die Chancen erhöhen, dass mir jemand hilft.
Viele Grüße,
Sebastian
![]() |
Betrifft: AW: Linie in einer Grafik ansprechen
von: Beverly
![]() |