Kopieren von Diagrammen von einem Blatt in ein anderes

Question

Ich habe zwei Blätter und möchte das Diagramm von Blatt1 nach Blatt2 kopieren.

Ich verwende den folgenden Code, der Code entfernt das Diagramm aus Sheet1 und fügt sie in Sheet2. Stattdessen möchte ich nur das Duplikat des Chart haben.

ALSO hätte ich gerne meine Charts im besonderen Bereich. Wie kann ich sie bearbeiten?

Anylead würde

Sub overview1() 
    Dim chartobj As Object 
    For Each chartobj In Sheets("CAT").ChartObjects 
    chartobj.chart.Location xlLocationAsObject, "Overview_1" 

    Next chartobj 
    For Each chartobj In Sheets("Dev").ChartObjects 
    chartobj.chart.Location xlLocationAsObject, "Overview_1" 
    Next chartobj 
End sub 

Answer 1

hilfreich sein, sollten Sie versuchen, die Verwendung einer Kopieren/Einfügen-Technik, wie die unten zu machen.

Sub overview1() 
    Dim OutSht As Worksheet 
    Dim Chart As ChartObject 
    Dim PlaceInRange As Range 

    Set OutSht = ActiveWorkbook.Sheets("Overview_1") '<~~ Output sheet 
    Set PlaceInRange = OutSht.Range("B2:J21")  '<~~ Output location 

    'Loop charts 
    For Each Chart In Sheets("CAT").ChartObjects 
     'Copy/paste charts 
     Chart.Copy 
     OutSht.Paste PlaceInRange 
    Next Chart 

End Sub 

Dies ist nur ein einfaches Beispiel, das Sie behalten soll gehen. Offensichtlich fügt dieses Beispiel alle Diagramme in exakt derselben Lokation im Ausgabeblatt ein, was wahrscheinlich nicht das ist, wonach Sie suchen.