埋め込みチャートを新しいチャートシートに移動してシート名を変更する

Question

特定のワークシートでチャートをループし、すべてのシートの最後に新しいチャートシートに移動しようとしています。また、グラフシートの名前を変更してタブの色を変更したいと思います。ここで

が私のコードです：

Dim ws As Worksheet, co As ChartObject, c As Chart 

Set ws = ThisWorkbook.Sheets("nameofSheet") 
ws.Activate 

For Each co In ws.ChartObjects 
    co.Activate 
    Set c = co.Chart 

    'move chart to new sheet at the end 
    c.Move After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count) 

    'rename chart sheet 
    c.Name = "newChartSheetName" 

    'change colour 
    c.Tab.Color = RGB(1,1,1) 
Next co 

しかし、それが動作し、エラーをスローしません：Run-time error '1004': Method 'Move' of object '_Chart' failed

私は広範囲に検索したが、この問題への答えを見つけることができませんでした。私はco（ChartObject）を直接使ってみましたが、うまくいきませんでした。私はそれに何かをする前にオブジェクト.Activateする必要があることを読んだが、それも動作しませんでした。

Answer 1

埋め込みグラフの場合は、あなたが最初のグラフシートに変換する必要があります答えるため

Set c = c.Location(where:=xlLocationAsNewSheet, "newChartSheetName") 
c.Move After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)