Office: Diagramm-Makro funktioniert nur bedingt

Code:

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Customer-AccessCode'!$F$5:$Q$5")
    ActiveChart.ChartType = xlLine
    ActiveChart.ChartArea.Copy
    Sheets("Output").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Customer-AccessCode").Select
    ActiveChart.Parent.Delete

Hiho,
dieses Makro funktioniert leider nur, wenn ich im Blatt min. zwei horizontal nebeneinanderliegende Felder markiert habe... egal welche. Wenn ich das nicht tue, erhalte ich ein leeres Diagramm mit der Legende "Datenreihen 1" bis "Datenreihen 10".
Weiß jemand, woran das liegt?

Gruß,
Oliver

 

Hallo Oliver,

das Problem dürfte an mehreren Faktoren liegen.
1) Du verwendest als äußere Auflistung "Shapes" und fügst ihnen ein Chart-Element hinzu (AddChart)
2) Du verwendest einen horizontalen Datenbereich F5:Q5
3) Du lässt zuerst das Diagramm default-mäßig als Balkendiagramm darstellen und stellst erst hinterher mit ChartType auf xlLine um
Ich vermute, dass hauptsächlich 1)+2) in Kombination die Ursache des Problems sind.

Wenn Du zB. folgendes wesentlich kürzere Makro nimmst, dürften die Probleme nicht auftreten:

Code:

    With Sheets("Output").ChartObjects.Add(0, 0, 300, 200)
      With .Chart
        .ChartType = xlLine
        .SetSourceData Source:=Range("'Customer-AccessCode'!$f$5:$q$5")
      End With
    End With

EDIT:
Es gibt natürlich auch die Möglichkeit, ein eigenes Diagrammarbeitsblatt zu verwenden, welches Du entweder händisch einfügen kannst (und mit "Output" benennen kannst) oder per Makro, zB:

Code:

    With Sheets.Add(after:=Sheets(Sheets.Count), Type:=xlChart)
      .Name = "Output"
    End With

Auf dieses "Output"-Diagrammblatt kannst Du dann folgendermaßen zugreifen:

Code:

    With Sheets("Output")
        .ChartType = xlLine
        .SetSourceData Source:=Range("'Customer-AccessCode'!$f$5:$q$5")
    End With