用于处理图表&图形的VBA代码大全4

excelperfect

标签：VBA

前面的文章：

用于处理图表&图形的VBA代码大全1

用于处理图表&图形的VBA代码大全2

用于处理图表&图形的VBA代码大全3

绘图区

绘图区是图表的主体，包含折线、条形、面积、气泡等。

所有的代码以cht开始，假设已经使用上面介绍的代码引用了图表。

绘图区的背景颜色：

'设置绘图区的背景颜色cht.PlotArea.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)'设置绘图区为无背景色cht.PlotArea.Format.Fill.Visible = msoFalse

设置绘图区的位置：

'设置绘图区的大小和位置. 顶部和左侧是相对于绘图区.cht.PlotArea.Left = 20cht.PlotArea.Top = 20cht.PlotArea.Width = 200cht.PlotArea.Height = 150

图表系列

图表系列是每个类别的单独线条、条形和区域。

所有代码以srs开始，假设图表系列已被赋值给变量。

添加新的图表系列：

'添加新的图表系列Set srs = cht.SeriesCollection.NewSeriessrs.Values = '=Sheet1!$C$2:$C$6'srs.Name = '=''新系列''''当使用XY散点图时，对X坐标轴设置值srs.XValues = '=Sheet1!$D$2:$D$6'

引用图表系列：

设置系列变量包括图表系列：

1=第一个图表系列

2=第二个图表系列

依此类推。

Dim srs As SeriesSet srs = cht.SeriesCollection(1)

通过名称引用图表系列：

Dim srs As SeriesSet srs = cht.SeriesCollection('系列名称')

删除图表系列：

'删除图表系列srs.Delete

遍历每一图表系列：

Dim srs As SeriesFor 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 = msoLineDashsrs.Format.Line.DashStyle = msoLineSolidsrs.Format.Line.DashStyle = msoLineSysDotsrs.Format.Line.DashStyle = msoLineSysDashsrs.Format.Line.DashStyle = msoLineDashDotsrs.Format.Line.DashStyle = msoLineLongDashsrs.Format.Line.DashStyle = msoLineLongDashDotsrs.Format.Line.DashStyle = msoLineLongDashDotDot

格式化标记：

'改变标记类型srs.MarkerStyle = xlMarkerStyleAutomaticsrs.MarkerStyle = xlMarkerStyleCirclesrs.MarkerStyle = xlMarkerStyleDashsrs.MarkerStyle = xlMarkerStyleDiamondsrs.MarkerStyle = xlMarkerStyleDotsrs.MarkerStyle = xlMarkerStyleNone'改变标记边框颜色srs.MarkerForegroundColor = RGB(255, 0, 0)'改变标记填充颜色srs.MarkerBackgroundColor = RGB(255, 0, 0)'改变标记大小srs.MarkerSize = 8

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料，并通过社群加入专门的微信讨论群，更方便交流。