VBA画坐标轴的代码

您好！下面是一个使用VBA绘制坐标轴的示例代码：

Sub DrawAxis()
    ' 定义绘图区域的位置和大小
    Dim chartLeft As Single, chartTop As Single
    Dim chartWidth As Single, chartHeight As Single
    chartLeft = 50
    chartTop = 50
    chartWidth = 300
    chartHeight = 200
    
    ' 创建图表并设置位置和大小
    Dim chart As ChartObject
    Set chart = ActiveSheet.ChartObjects.Add(chartLeft, chartTop, chartWidth, chartHeight)
    
    With chart.Chart
        ' 设置图表类型为散点图
        .ChartType = xlXYScatter
        
        ' 设置X轴范围和刻度
        .Axes(xlCategory).MinimumScale = 0
        .Axes(xlCategory).MaximumScale = 10
        .Axes(xlCategory).MajorUnit = 1
        
        ' 设置Y轴范围和刻度
        .Axes(xlValue).MinimumScale = 0
        .Axes(xlValue).MaximumScale = 100
        .Axes(xlValue).MajorUnit = 10
        
        ' 设置X轴和Y轴标题
        .Axes(xlCategory).HasTitle = True
        .Axes(xlCategory).AxisTitle.Text = "X轴"
        
        .Axes(xlValue).HasTitle = True
        .Axes(xlValue).AxisTitle.Text = "Y轴"
        
        ' 设置X轴和Y轴网格线
        .Axes(xlCategory).HasMajorGridlines = True
        .Axes(xlValue).HasMajorGridlines = True
        
        ' 设置数据系列
        Dim series As Series
        Set series = .SeriesCollection.NewSeries
        series.Values = Array(10, 20, 30, 40, 50) ' Y轴数据
        series.XValues = Array(1, 2, 3, 4, 5) ' X轴数据
    End With
End Sub

这段代码会在当前活动工作表中创建一个散点图，并绘制了带有刻度、标题和网格线的坐标轴。您可以根据需要修改位置、大小和数据系列。希望对您有所帮助！如有其他问题，请随时提问。