|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.07.2008 10:27:07 |
SH |
|
|
 Aw:Linie in einer Grafik ansprechen |
02.07.2008 21:18:36 |
Holger |
|
|
|
03.07.2008 08:29:53 |
SH |
|
|
|
03.07.2008 15:54:05 |
Holger |
|
|
Von:
Holger |
Datum:
02.07.2008 21:18:36 |
Views:
960 |
Rating:
|
Antwort:
|
Thema:
Aw:Linie in einer Grafik ansprechen |
Hallo SH,
ich gehe davon aus, dass es sich nicht um eingebettetes Diagramm, sondern um eine Chart handelt.
Dann kannst im Codeteil der Chart z.B.
Private Sub chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
If ElementID = xlSeries then
select case Arg1
case 1
'Deine Anweisungen für die 1. Datenreihe
case 2
'Deine Anweisungen für die 2. Datenreihe
...
case else
end select
end if
End Sub
verwenden. Vielleicht musst du noch etwas daran herumbasteln. Ich habe das Makro nicht ausprobiert.
Für ein eingebettetes Diagramm funktioniert es nicht. Dafür habe ich auch keine wirkliche Lösung. Falls du eine finden solltest, lasse sie dem Forum zukommen.
Gruß
Holger
SH schrieb am 02.07.2008 10:27:07:
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 |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.07.2008 10:27:07 |
SH |
|
|
Aw:Linie in einer Grafik ansprechen |
02.07.2008 21:18:36 |
Holger |
|
|
|
03.07.2008 08:29:53 |
SH |
|
|
|
03.07.2008 15:54:05 |
Holger |
|
|