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

excelperfect

标签：VBA

上一篇文章：用于处理图表&图形的VBA代码大全1

基本的图表设置

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

改变图表类型：

cht.ChartType = xlAreacht.ChartType = xlLinecht.ChartType = xlPiecht.ChartType = xlColumnClusteredcht.ChartType = xlColumnStackedcht.ChartType = xlColumnStacked100cht.ChartType = xlAreacht.ChartType = xlAreaStackedcht.ChartType = xlBarClusteredcht.ChartType = xlBarStackedcht.ChartType = xlBarStacked100

在工作表中创建空白ChartObject：

'创建一个嵌入到工作表中的空图表Set cht = Sheets('Sheet1').Shapes.AddChart2.Chart

为图表选择数据源：

Dim rng As RangeSet rng = Sheets('Sheet1').Range('A1:B4')cht.SetSourceData Source:=rng

删除图表对象或图表工作表：

If TypeName(cht.Parent) = 'ChartObject' Then cht.Parent.DeleteElseIf TypeName(cht.Parent) = 'Workbook' Then cht.DeleteEnd If

改变图表的大小或位置：

'设置图表对象的大小/位置-方法1cht.Parent.Height = 200cht.Parent.Width = 300cht.Parent.Left = 20cht.Parent.Top = 20
'设置图表对象的大小/位置-方法2chtObj.Height = 200chtObj.Width = 300chtObj.Left = 20chtObj.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 = 25cht.Axes(xlValue).MinimumScale = 10cht.Axes(xlValue).MaximumScaleIsAuto = Truecht.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

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

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