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开始，假设图表系列已被赋值给变量。

添加新的图表系列：

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

引用图表系列：

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

1=第一个图表系列

2=第二个图表系列

依此类推。

DimsrsAs SeriesSetsrs= cht.SeriesCollection(1)

通过名称引用图表系列：

DimsrsAs SeriesSetsrs= cht.SeriesCollection("系列名称")

删除图表系列：

"删除图表系列srs.Delete

遍历每一图表系列：

DimsrsAs SeriesForEachsrsIn 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社群，进行技术交流和提问，获取更多电子资料，并通过社群加入专门的微信讨论群，更方便交流。