Thema Datum  Von Nutzer Rating
Antwort
Rot Liniendiagramm
 13.12.2017 12:59:08 Gast61084
*****
NotSolved
13.12.2017 17:06:38 Mackie
NotSolved
14.12.2017 08:21:15 Gast31070
NotSolved
14.12.2017 08:23:47 Gast5662
NotSolved
14.12.2017 17:22:07 Mackie
NotSolved
15.12.2017 10:01:09 Gast7581
NotSolved
15.12.2017 23:03:23 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Gast61084		 Datum:
13.12.2017 12:59:08		 Views:
1182		 Rating:
     
Antwort:
  Ja
Thema:
Liniendiagramm

Hallo, ich möchte ein Liniendiagramm mit VBA erstellen, dazu habe ich versucht einen Code zu schreiben, dieser fuktioniert jedoch noch nicht so richtig.

Wenn ich das Programm ausführe gibt Excel zwar den Rahmen aus, jedoch nicht den Inhalt bzw. die Kurve, die entstehen müsste.

Gibt es hier jemand, der mit behilflich sein und mal einen Blick auf den Code werfen?

Vielen Dank :)

ActiveSheet.ChartObjects.Add(50, 80, 600, 380).Select
ActiveChart.ChartWizard Source:=Range("A37:B1037").Chart
ChartType = xlLine
FormatType = 10
PlotBy = xlCollums

Categorylabels = 1
serieslabels = 0
HasLegend = 2
Title = "Druckverlauf in abhängigkeit der Zeit"
categorytitle = "t/ms"
valuetile = "p/hPa"
extratitle = ""

With Selection.Border
    .Weight = xlHairline
    .LineStyle = xlNone
End With

With ActiveChart.Axes(xlCategory)
    .TickLabelSpacing = 100
    .TickMarkSpacing = 100
    .AxisBetweenCategories = False
    .ReversePlotOrder = False
End With

 

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:



  • 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 Liniendiagramm
 13.12.2017 12:59:08 Gast61084
*****
NotSolved
13.12.2017 17:06:38 Mackie
NotSolved
14.12.2017 08:21:15 Gast31070
NotSolved
14.12.2017 08:23:47 Gast5662
NotSolved
14.12.2017 17:22:07 Mackie
NotSolved
15.12.2017 10:01:09 Gast7581
NotSolved
15.12.2017 23:03:23 Mackie
NotSolved