如何使用...中的值作为用户输入？

Question

我有一个修改图表布局的代码，使用必须修改为用户输入值的图表编号。到目前为止我有很多图表（大约50个），我想每次不仅仅输入1个值，而是要修改图表，例如从2到10。可以请一些人帮忙吗？

Sub Grafici()
    Dim ws As Worksheet
    Dim sUserInput As String
    Set ws = ActiveWorkbook.Sheets("Sheet1")
    ws.Select

    sUserInput = InputBox("Enter Number:", "Collect User Input")

    For i = 1 To 7
    On Error Resume Next
    ActiveSheet.ChartObjects("Chart " & sUserInput).Activate
        ActiveChart.SeriesCollection(i).Points(12).MarkerSize = 19
        ActiveChart.SetElement (msoElementDataLabelCenter)
        ActiveChart.SeriesCollection(i).Points(11).DataLabel.Delete
        ActiveChart.SeriesCollection(i).Points(11).MarkerSize = 5
                Next
    End Sub

谢谢！