下記のマクロの意味を教えていただけませんでしょうか？ 宜しくお願い致します。 Sub グラフ作成() Dim I As Integer Dim J As Integer Application.ScreenUpdating = False Application.DisplayAlerts = False I = 0 J = 2 Do While Cells(5 + I, "A") <> "総計" Sheets("pivot").Select Range("A1").Select ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("品番").ClearAllFilters Worksheets("pivot").Range("E2") = Cells(5 + I, 1).Value Worksheets("まとめ").Cells(J, 2) = Worksheets("pivot").Range("E2").Value 'グラフコピー Sheets("pivot").Select ActiveSheet.ChartObjects("グラフ 2").Activate ActiveSheet.ChartObjects("グラフ 2").Activate ActiveChart.ChartArea.Copy Sheets("まとめ").Select Cells(J, "C").Select ActiveSheet.Pictures.Paste.Select Application.CutCopyMode = False Worksheets("pivot").Select I = I + 1 J = J + 30 Loop Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub