问如何从同一模板为不同的输入/场景生成多个图表

EN

Sub save_charts()

Dim i As Long
Dim path As String
Dim product_name As String
Dim ws_name As String
Dim file_name As String

i = 2
path = Application.DefaultFilePath

Do Until Worksheets("Products").Cells(i, 1).Value = ""

If Worksheets("Products").Cells(i, 1).Value <> "" Then
product_name = Worksheets("Table").Cells(1, 1).Value
ws_name = product_name & " Chart"
file_name = path & "\" & ws_name
Worksheets("Table").Cells(1, 1).Value = Worksheets("Products").Cells(i, 1).Value
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        file_name, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True

End If

i = i + 1

Loop

End Sub