绘图区是图表的主体,包含折线、条形、面积、气泡等。所有的代码以cht开始,假设已经使用上面介绍的代码引用了图表。 '设置绘图区的背景颜色 cht.PlotArea.Format.Fill.ForeColor.RGB = RGB(255, 0, 0) '设置绘图区为无背景色 cht.PlotArea.Format.Fill.Visible = msoFalse
'设置绘图区的大小和位置. 顶部和左侧是相对于绘图区. cht.PlotArea.Left = 20 cht.PlotArea.Top = 20 cht.PlotArea.Width = 200 cht.PlotArea.Height = 150 所有代码以srs开始,假设图表系列已被赋值给变量。'添加新的图表系列 Set srs = cht.SeriesCollection.NewSeries srs.Values = '=Sheet1!$C$2:$C$6' srs.Name = '=''新系列''' '当使用XY散点图时,对X坐标轴设置值 srs.XValues = '=Sheet1!$D$2:$D$6'
Dim srs As Series Set srs = cht.SeriesCollection(1)
Dim srs As Series Set srs = cht.SeriesCollection('系列名称')
Dim srs As Series For Each srs In cht.SeriesCollection '操作系列的代码 Next srs
'改变系列源数据和名称 srs.Values = '=Sheet1!$C$2:$C$6' srs.Name = '=''改变系列名称'''
'改变填充颜色 srs.Format.Fill.ForeColor.RGB = RGB(255, 0, 0) '改变线条颜色 srs.Format.Line.ForeColor.RGB = RGB(255, 0, 0)
'更改线的可见性 srs.Format.Line.Visible = msoTrue
srs.Format.Line.Weight = 10
srs.Format.Line.DashStyle = msoLineDash srs.Format.Line.DashStyle = msoLineSolid srs.Format.Line.DashStyle = msoLineSysDot srs.Format.Line.DashStyle = msoLineSysDash srs.Format.Line.DashStyle = msoLineDashDot srs.Format.Line.DashStyle = msoLineLongDash srs.Format.Line.DashStyle = msoLineLongDashDot srs.Format.Line.DashStyle = msoLineLongDashDotDot
'改变标记类型 srs.MarkerStyle = xlMarkerStyleAutomatic srs.MarkerStyle = xlMarkerStyleCircle srs.MarkerStyle = xlMarkerStyleDash srs.MarkerStyle = xlMarkerStyleDiamond srs.MarkerStyle = xlMarkerStyleDot srs.MarkerStyle = xlMarkerStyleNone '改变标记边框颜色 srs.MarkerForegroundColor = RGB(255, 0, 0) '改变标记填充颜色 srs.MarkerBackgroundColor = RGB(255, 0, 0) '改变标记大小 srs.MarkerSize = 8 欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。 欢迎到知识星球:完美Excel社群,进行技术交流和提问,获取更多电子资料,并通过社群加入专门的微信讨论群,更方便交流。
|