Office: (Office 2019) Diagramm mit Makro erstellen und formatieren

Hallo Zusammen
Mir stellt sich folgendes Problem: Ich möchte in einem Tabellenblatt, welches je Zeile ein Objekt mit Zahlen umschreibt, die Zahlen graphisch darstellen. Da ich gedenke die Zeilen zu Filtern benötige ich je Zeile ein separates Diagramm. Damit ich nicht für jede Zeile das zu erstellende Diagramm händisch formatieren muss, soll das Erstellen und Formatieren ein Makro übernehmen. Hier stehe ich an. Ich habe die Arbeitsschritte aufgezeichnet. Nur spuckt das Makro jedes Mal den Laufzeitfehler 91 aus.
Der Fehler wird mir in der zweiten Zeile markiert. Ich habe aber das Gefühl, dass das Problem an der zufälligen Nummerierung des Diagramms durch Excel liegt?

Code:

' Tastenkombination: Strg+q
'
    ActiveCell.Offset(0, -4).Range("A1:D1").Select
    ActiveChart.ClearToMatchStyle
    ActiveChart.ClearToMatchStyle
    ActiveSheet.Shapes.AddChart2(297, xlBarStacked).Select
    ActiveChart.SetSourceData Source:=Range("Tabelle1!$L$7:$O$7")
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MinimumScale = 0
    ActiveChart.Axes(xlValue).MaximumScale = 75000000
    Selection.Delete
    ActiveSheet.ChartObjects("Diagramm 15").Activate
    ActiveChart.Legend.Select
    Selection.Delete
    ActiveSheet.ChartObjects("Diagramm 15").Activate
    ActiveChart.ChartTitle.Select
    Selection.Delete
    ActiveSheet.ChartObjects("Diagramm 15").Activate
    ActiveChart.Axes(xlCategory).Select
    Selection.Delete
    ActiveSheet.ChartObjects("Diagramm 15").Activate
    ActiveChart.PlotArea.Select
    Selection.Top = 0
    Selection.Height = 205
    Selection.Height = 217
    Selection.Left = 1
    Selection.Width = 348
    Selection.Width = 360
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes("Diagramm 15").Height = 28.3464566929
    ActiveSheet.Shapes("Diagramm 15").Width = 311.811023622
    ActiveSheet.Shapes("Diagramm 15").Fill.Visible = msoFalse
End Sub

Für eine Erklärung für den DAU bin ich sehr dankbar. :-)

 

Hi,

du markierst in deiner ersten Codezeile die Zellen A1:D1 im Tabellenblatt und willst im nächsten Schritt auf das aktive Diagramm zugreifen: jetzt ist jedoch kein Diagramm mehr aktiv sondern die Zellen - logisch dass das einen Fehler auslöst. Wie folgt kannst du es lösen:

Code:

With ActiveSheet.Shapes.AddChart2(297, xlBarStacked).Chart
    .ClearToMatchStyle
    .SetSourceData Source:=Range("Tabelle1!$L$7:$O$7")
    With .Axes(xlValue)
        .MinimumScale = 0
        .MaximumScale = 75000000
        .Delete
    End With
    .HasLegend = False
    .ChartTitle.Delete
    .Axes(xlCategory).Delete
    With .PlotArea
        .Top = 0
        .Height = 217
        .Left = 1
        .Width = 360
    End With
    With .ChartArea
        .Height = 28.3464566929
        .Width = 311.811023622
        .Fill.Visible = msoFalse
    End With
End With

---