创建图表
2016-06-07 18:04 sylar_liang 阅读(410) 评论(0) 编辑 收藏 举报Dim myRange As Range
Dim myChart As ChartObject
If ActiveSheet.ChartObjects.count > 0 Then
Sheet1.ChartObjects.Delete
End if
Set ab = Range("A1:O10")
Set myRange = ActiveSheet.ChartObjects.Add(ab.Left, ab.Top, ab.Width, ab.Height)
Dim rngS1 As Range
Dim rngS2 As Range
Set rngS1 = Range("D" & 18 & ":O" & 18)
Set rngS2 = Range("D" & 19 & ":O" & 19)
With myChart.Chart
.ChartType = xlLineMarkers
.HasTitle = True
.ChartTitle.Text = "Chart Example"
With .ChartTitle.Font
.Size = 10
.Name = "songti"
End With
End With
myChart.Select
ActiveChart.SetSourceData Source:=Range("Sheet1!$D$12:$O$14")
ActiveChart.SeriesCollection(1).Name = "=""xiaban"""
ActiveChart.SeriesCollection(2).Name = "=""shangban"""
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = "=""guige1"""
ActiveChart.SeriesCollection(3).Values = rngS1
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).Name = "=""xiaban"""
ActiveChart.SeriesCollection(4).Values= rngS2
ActiveChart.ChartArea.Select
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(3).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.DashStyle = msoLineLongDashDot
End With
Select.MarkerStyle = -4142
ActiveChart.SeriesCollection(4).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255,0,0)
.DashStyle = msoLineDashDot
End With
Selection.MarkerStyle = -4142
'xianshi zai shang mian
'ActiveChart.ChartArea.Select
'ActiveChart.Legend.Select
'Selection.Position = xlTop
Set myRange = Nothing
Set myChart = Nothing
Set rngS1 = Nothing
Set rngS2 = Nothing
Range("P1").Select
End Sub
