Thema Datum  Von Nutzer Rating
Antwort
Rot vba: Diagramm - Linie als Pfeil
 04.12.2014 10:33:42 Manni
NotSolved
04.12.2014 15:17:35 Gast92622
NotSolved
05.12.2014 07:15:59 Manni
NotSolved

Ansicht des Beitrags:
Von:
Manni		 Datum:
04.12.2014 10:33:42		 Views:
1350		 Rating:
     
Antwort:
  Ja
Thema:
vba: Diagramm - Linie als Pfeil
Ich erstelle eine große Anzahl an Diagrammen komplett dynamisch. 
Bei meinem jetzigen Problem handelt es sich um ein klassisches Liniendiagramm, dass ergänzt werden soll um eine senkrechte Linie, die dynamisch "wandern" kann.
Alles soweit so und so gut, die Lösung dafür habe ich mir erarbeitet. 
Anstelle eines Liniendiagramms benutze ich hierfür ein Punktediagramm (Punkte mit interpolierten Linien; .ChartType = xlXYScatterSmoothNoMarkers)
Nun möchte ich eigentlich nur, dass die senkrechte Linie ein Pfeil in einer Richtung erhält.
Wenn ich das Diagramm händisch bearbeite, ist die Lösung einfach, nur dieses ist für mich keine praktikable Lösung. 
Natürlich habe ich es auch über den Makrorekorder versucht - na ja, das Ergebnis war nicht brauchbar. Bis auf ein "Select" kam nicht viel herum.
Zur Vereinfachung ist hier der entsprechende Code:
 
 
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#With Sheets("Dia")
With .Shapes.AddChart.Chart
.ChartType = xlXYScatterSmoothNoMarkers
.SeriesCollection.NewSeries
With .SeriesCollection(1)
.Values = "=" & strSheetsWertNeu & "!$A$" & lgIst & ":$N$" & lgIst
.XValues = "=" & strSheetsWertNeu & "!$A$" & lgMonat & ":$N$" & lgMonat
.Border.Color = RGB(66, 123, 171)
End With
 
.SeriesCollection.NewSeries
With .SeriesCollection(2)
.Values = "=" & strSheetsWertNeu & "!$A$" & lgVerti & ":$N$" & lgVerti
.XValues = "=" & strSheetsWertNeu & "!$A$" & lgMonat & ":$N$" & lgMonat
.Border.Color = RGB(255, 0, 0)
.Border.LineStyle = xlDot 'Dash
.Border.Weight = 3
End With
. . .
 
Die betroffene Linie ist .SeriesCollection(2)
 

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot vba: Diagramm - Linie als Pfeil
 04.12.2014 10:33:42 Manni
NotSolved
04.12.2014 15:17:35 Gast92622
NotSolved
05.12.2014 07:15:59 Manni
NotSolved