用于处理图表&图形的VBA代码大全2
基本的图表设置
下面的代码以cht开始，假设已经使用上面介绍的代码引用了图表。
改变图表类型：
cht.ChartType = xlArea
cht.ChartType = xlLine
cht.ChartType = xlPie
cht.ChartType = xlColumnClustered
cht.ChartType = xlColumnStacked
cht.ChartType = xlColumnStacked100
cht.ChartType = xlArea
cht.ChartType = xlAreaStacked
cht.ChartType = xlBarClustered
cht.ChartType = xlBarStacked
cht.ChartType = xlBarStacked100在工作表中创建空白ChartObject：
'创建一个嵌入到工作表中的空图表
Set cht = Sheets("Sheet1").Shapes.AddChart2.Chart为图表选择数据源：
Dim rng As Range
Set rng = Sheets("Sheet1").Range("A1:B4")
cht.SetSourceData Source:=rng删除图表对象或图表工作表：
If TypeName(cht.Parent) = "ChartObject" Then
cht.Parent.Delete
ElseIf TypeName(cht.Parent) = "Workbook" Then
cht.Delete
End If改变图表的大小或位置：
'设置图表对象的大小/位置-方法1
cht.Parent.Height = 200
cht.Parent.Width = 300
cht.Parent.Left = 20
cht.Parent.Top = 20
'设置图表对象的大小/位置-方法2
chtObj.Height = 200
chtObj.Width = 300
chtObj.Left = 20
chtObj.Top = 20改变可见单元格设置：
'修改设置仅显示可见单元格
cht.PlotVisibleOnly = False修改柱形/条形间的空间（间隙宽度）：
'改变两个条形之间的间隙空间
cht.ChartGroups(1).GapWidth = 50更改柱形/条形的重叠：
cht.ChartGroups(1).Overlap = 75移除图表对象的外侧边框：
cht.ChartArea.Format.Line.Visible = msoFalse改变图表背景颜色：
'设置图表区域填充颜色
cht.ChartArea.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
'设置图表没有背景颜色
cht.ChartArea.Format.Fill.Visible = msoFalse图表坐标轴
图表有四个坐标轴：
1. xlValue
2.xlValue, xlSecondary
3.xlCategory
4.xlCategory, xlSecondary
在下面的例子中，这些可以互换使用。为了使代码适应你的特定需求，需要更改括号中引用的图表坐标轴。
所有的代码以cht开始，假设已经使用上面介绍的代码引用了图表。
设置图表坐标轴的最小值和最大值：
cht.Axes(xlValue).MaximumScale = 25
cht.Axes(xlValue).MinimumScale = 10
cht.Axes(xlValue).MaximumScaleIsAuto = True
cht.Axes(xlValue).MinimumScaleIsAuto = True显示或隐藏图表坐标轴：
'显示坐标轴
cht.HasAxis(xlCategory) = True
'隐藏坐标轴
cht.HasAxis(xlValue, xlSecondary) = False显示或隐藏图表标题：
'显示坐标轴标题
cht.Axes(xlCategory, xlSecondary).HasTitle = True
'隐藏坐标轴标题
cht.Axes(xlValue).HasTitle = False修改图表坐标轴标题文本：
cht.Axes(xlCategory).AxisTitle.Text = "我的坐标轴标题"反转分类轴的顺序：
'反转分类轴的顺序
cht.Axes(xlCategory).ReversePlotOrder = True
'设置分类轴为默认顺序
cht.Axes(xlCategory).ReversePlotOrder = False本文参与 腾讯云自媒体分享计划，分享自微信公众号。
原始发表：2023-05-24，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读