Diagramm ändern ohne Select

[Lutz Fricke]

Hallo zusammen,

ich habe da mal wieder ein (hoffentlich) kleines Problem.
Ich möchte:
a) zwei Diagramm in die Zwischenablage kopieren

Code:

With ActiveSheet
    .Unprotect
    .Shapes.Range(Array("Chart 2", "Chart 5")).CopyPicture Appearance:=xlScreen, Format:=xlPicture   'Hier kommt der Fehler
    .Protect
End With

b) bei einem Diagramm Graphen ausblenden

Code:

With ActiveSheet
        .Unprotect
            With .ChartObjects("Chart 2")
                .FullSeriesCollection(2).IsFiltered = True    'Hier kommt der Fehler
                .FullSeriesCollection(3).IsFiltered = True
                .FullSeriesCollection(4).IsFiltered = True
                .FullSeriesCollection(5).IsFiltered = True
                .FullSeriesCollection(6).IsFiltered = True
            End With
      
        .Protect
End With

Beides hätte ich natürlich gerne ohne Select/Activate umgesetzt, leider bekomme ich immer den Laufzeitfehler 438: "Objekt unterstützt diese Eigenschaft oder Methode nicht".

Wenn ich die Diagramm zuerst auswähle funktionierts.
Ich habe im Internet gefunden, dass es über die Definition eine Objects funktionieren soll, aber auch das geht nicht ohne es zu auszuwählen.

Wie bekomme ich das am Besten hin.

Vielen Dank für Eure Hilfe,
Lutz
  Beispiel Kopie Graph.xlsm (Größe: 145,56 KB / Downloads: 5)

[Kuwer]

Hallo Lutz,

zu b):

Code:

Sub A_Second_Axis_Change()
  With ActiveSheet
    .Unprotect
    With .ChartObjects("Chart 2").ShapeRange.Chart
      .FullSeriesCollection(2).IsFiltered = True
      .FullSeriesCollection(3).IsFiltered = True
      .FullSeriesCollection(4).IsFiltered = True
      .FullSeriesCollection(5).IsFiltered = True
      .FullSeriesCollection(6).IsFiltered = True
    End With
    .Protect
  End With
End Sub

Gruß, Uwe