excel2007vba绘图1

参考:http://club.excelhome.net/thread-480025-1-1.html

'--------------------------------------------------------Module1--------------------------------------------------------
Sub Macro1()
    ActiveSheet.Range("B1:B40").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatter
    ActiveChart.SetSourceData Source:=Range("'Sheet5'!$A$1:$B$40")
    With ActiveChart
        .HasTitle = True                                    '为图表设置标题
        With .ChartTitle
            .Text = "交会图版"
            .Font.Name = "宋体"
            .Font.Size = 15
            .Font.ColorIndex = 5
            .Top = 5
            .Left = 150
        End With
        With .Axes(xlCategory)                             '为图表设置横坐标
            .HasTitle = True
            .AxisTitle.Text = "统计含量"
            .AxisTitle.Font.Name = "宋体"
            .AxisTitle.Font.Size = 12
            .AxisTitle.Font.Bold = False
            .AxisTitle.Font.ColorIndex = 1
            .MinimumScale = 0
            .MaximumScale = 60
        End With
        With .Axes(xlValue)                               '为图表设置纵坐标
            .HasTitle = True
            .AxisTitle.Text = "百分数"
            .AxisTitle.Font.Name = "宋体"
            .AxisTitle.Font.Size = 12
            .AxisTitle.Font.Bold = False
            .AxisTitle.Font.ColorIndex = 1
            .MinimumScale = 0
            .MaximumScale = 80
        End With
        .HasLegend = True                                      '为图表设置图例
        With .Legend
            .Position = xlLegendPositionRight
        End With
    End With
End Sub

参考：http://club.excelhome.net/thread-480025-1-1.html