一、excel绘图区背景怎么设置
在Excel图表中,如对绘图区设置背景色,一般只能对整个绘图区设置同一种颜色、图案或图片为背景。但有时希望能对不同的分区设置不同的颜色作为背景,这时可以采取其他辅助手段实现这一目标,包括添加辅助的柱形图堆、积柱形图、堆积条形图,面积图等等。这些方法的基本思路是一样的,略举几例,可以自己试验创造。本篇介绍使用柱形图,进行横向或纵向分区设置绘图区背景色。
如有下表:
做成折线图,调整坐标轴刻度后,如下所示:
用辅助柱形图纵向设置分区背景色
先准备按年,对绘图区设置颜色,由上图得知本例Y轴最大刻度为23,在原数据表格中添加一辅助系列数据,如下图所示:
选中图表,在右键菜单中选“选择数据”(或在Excel界面上“图表工具”-“设计”-“数据”-“选择数据”),在“图例项(系列)”中点击“添加”,准备将上述辅助数据行作为一个系列添加到图表中:
将AT107:AW107添加为系列2,水平(分类)轴标签选为AT105:AW105,如下图所示:
确定后,系列2也呈折线图,如下图所示:
在图表中选中系列2,在右键菜单上选“更改系列图表类型”,将系列2图表类型改变为柱形图:
选中系列2的柱形,在“设置数据点格式”-“系列选项”中将“分类间距”滑动游标拖至为0,即无间距,如下图所示:
逐个选中系列2的各个数据点,单独设置各个柱形的填充颜色,适当增加透明,如下图所示:
上述方法是增加一行辅助系列数据,设置其为柱形图,并使其分类之间间距为0.换言之,即以柱形的填充代之以背景色。这是一种替代方式,并非可以随意自定义设置绘图区背景色。这种方式的优点是设置比较方便,可以较快捷地达到分区的目的,其缺点是只能纵向分割,且颜色比较单调。
二、excel如何调整绘图区大小
楼主可以研究一下我的做法:
打开菜单“工具”---“宏”---“VB编辑器”,双击所在sheet表,把以下代码粘贴进去,保存。
然后按shift键,选定你所有的图表,打开菜单“工具”---“宏”---“宏”---选择“调整图表大小”---“执行”宏
具体的图表你还可以调节代码去调整长宽、字体格式等元素。
Sub 调整图片大小()
Selection.ShapeRange.Height = 150
Selection.ShapeRange.Width = 240
End Sub
Sub 调整图表区格式()
With Selection.Border
.Weight = 2
.LineStyle = 0
End With
Selection.Interior.ColorIndex = xlAutomatic
Selection.AutoScaleFont = False
With Selection.Font
.Name = "宋体"
.FontStyle = "常规"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
ActiveChart.PlotArea.Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Interior.ColorIndex = xlNone
ActiveChart.Legend.Select
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
Selection.Shadow = False
Selection.Interior.ColorIndex = xlNone
End Sub
Sub 调整单轴绘图区()
ActiveChart.PlotArea.Select
Selection.Top = 7
Selection.Width = 205
Selection.Height = 115
Selection.Left = 15
End Sub
Sub 调整双轴绘图区()
ActiveChart.PlotArea.Select
Selection.Top = 7
Selection.Width = 195
Selection.Height = 115
Selection.Left = 15
End Sub
Sub 复制图像()'偷懒,不用按shift键了
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:= _
xlPicture
End Sub