Private Sub CommandButton21_Click()

'ブックを開き、グラフタイトルを画像名にして保存する

    Set wb = Workbooks.Open("C:\Users\User\Desktop\W.xlsx")

    For i = 1 To 14 Step 1

       Workbooks("W.xlsx").Worksheets(CStr(i)).Select

       Dim cht As Chart

       Set cht = ActiveSheet.ChartObjects("グラフ 1").Chart

        ActiveSheet.ChartObjects(1).Chart.Export ThisWorkbook.Path & "\" & cht.ChartTitle.Text & ".jpg"

        Debug.Print ThisWorkbook.Path & cht.ChartTitle.Text & ".jpg"

    Next i

      

      wb.Close

    

End Sub