根据输入的范围在VBA中输出图形

Sub OutputGraph()
    Dim rangeData As Range
    Dim chart As ChartObject
    Dim sheet As Worksheet
    
    ' 获取输入范围
    Set rangeData = Application.InputBox("请输入数据范围：", Type:=8)
    
    ' 创建图表
    Set sheet = ThisWorkbook.Sheets.Add
    Set chart = sheet.ChartObjects.Add(Left:=10, Width:=300, Top:=10, Height:=250)
    chart.Chart.SetSourceData rangeData
    
    ' 设置图表类型
    chart.Chart.ChartType = xlLine
    
    ' 设置图表标题
    chart.Chart.HasTitle = True
    chart.Chart.ChartTitle.Text = "折线图"
    
    ' 设置X轴和Y轴标签
    chart.Chart.Axes(xlCategory).HasTitle = True
    chart.Chart.Axes(xlCategory).AxisTitle.Text = "X轴"
    chart.Chart.Axes(xlValue).HasTitle = True
    chart.Chart.Axes(xlValue).AxisTitle.Text = "Y轴"
End Sub