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 =
             .Font.ColorIndex =
             .Top =
             .Left =
         End With
         With .Axes(xlCategory)                             '为图表设置横坐标
             .HasTitle = True
             .AxisTitle.Text = "统计含量"
             .AxisTitle.Font.Name = "宋体"
             .AxisTitle.Font.Size =
             .AxisTitle.Font.Bold = False
             .AxisTitle.Font.ColorIndex =
             .MinimumScale =
             .MaximumScale =
         End With
         With .Axes(xlValue)                               '为图表设置纵坐标
             .HasTitle = True
             .AxisTitle.Text = "百分数"
             .AxisTitle.Font.Name = "宋体"
             .AxisTitle.Font.Size =
             .AxisTitle.Font.Bold = False
             .AxisTitle.Font.ColorIndex =
             .MinimumScale =
             .MaximumScale =
         End With
         .HasLegend = True                                      '为图表设置图例
         With .Legend
             .Position = xlLegendPositionRight
         End With
     End With
 End Sub

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