私が書いた以下のコードに問題があります。以前に DL5:HX5 から DL5:IU5 に実行されたグラフのエントリを更新する必要があり、約 100 枚のシートがあるため、ループが発生します。何らかの理由でステップスルーしていますが、セマンティックエラーがあるようです。誰かがそれが何であるかについていくつかの光を当てることを望んでいました.
3 つの図がありますが、これが複数のシートの図にアクセスする最良の方法であるかどうかはわかりません (これらは互いに同一のコピーであり、データが異なります)。最初の 2 つは、時系列を追加の列 (例: HX から IU)、最後の図は単純にラインを別の色に色フォーマットします (ラインは、投影されたライン フラグメントと実際のライン フラグメントによって分割されます)。
Dim i As Integer
For i = 31 To ActiveWorkbook.Worksheets.Count
On Error Resume Next
Worksheets(i).ChartObjects("Chart 2").Activate
ActiveChart.SeriesCollection(1).Values = "='" & Worksheets(i).Name & "'!$DL$5:$IU$5"
ActiveChart.SeriesCollection(1).XValues = "='" & Worksheets(i).Name & "'!$DL$3:$IU$3"
Worksheets(i).ChartObjects("Chart 6").Activate
ActiveChart.SeriesCollection(1).Values = "='" & Worksheets(i).Name & "'!$DL$14:$IU$14"
ActiveChart.SeriesCollection(2).Values = "='" & Worksheets(i).Name & "'!$DL$15:$IU$15"
ActiveChart.SeriesCollection(3).Values = "='" & Worksheets(i).Name & "'!$DL$16:$IU$16"
ActiveChart.SeriesCollection(3).XValues = "='" & Worksheets(i).Name & "'!$DL$3:$IU$3"
Worksheets(i).ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).Points(30).Border.Color = RGB(69, 114, 167)
ActiveChart.SeriesCollection(1).Points(30).Format.Line.ForeColor.RGB = RGB(69, 114, 167)
Next i