在VBA中如何表示所创建图表的类型及参数说明？

作者：绿色风分类：时间：2022-08-18 浏览：135

楼主
biaotiger1

Q：在VBA中如何表示所创建图表的类型及参数说明？
A：ALT+F11→“插入”→“模块”，输入代码如下

Sub 创建簇状柱形图()
Dim chr As Chart
Set chr = ActiveSheet.Shapes.AddChart.Chart
With chr
.ChartType = xlColumnClustered
.SetSourceData Source:=Range("Sheet1!$A$1:$A$10")
End With
End Sub

运行以上代码，则在活动工作表上插入了一个以sheet1工作表的A1:A10区域为数据源的簇状柱形图。

Sub 创建折线图()
Dim chr As Chart
Set chr = ActiveSheet.Shapes.AddChart.Chart
With chr
.ChartType = xlLine
.SetSourceData Source:=Range("Sheet1!$A$1:$A$10")
End With
End Sub

运行以上代码，则在活动工作表上插入了一个以sheet1工作表的A1:A10区域为数据源的折线图。

Sub 创建饼图()
Dim chr As Chart
Set chr = ActiveSheet.Shapes.AddChart.Chart
With chr
.ChartType = xlPie
.SetSourceData Source:=Range("Sheet1!$A$1:$A$10")
End With
End Sub

运行以上代码，则在活动工作表上插入了一个以sheet1工作表的A1:A10区域为数据源的饼图。

以上代码中ChartType参数表示的所创建图表的类型，详细说明如下

2楼
kevinchengcw

学习一下，图表还真不熟呢

3楼
chrisfang

Q：如何使用VBA更改现有图表的图表类型？
A：以下代码示例可以将活动工作表中名为“图表1”的图表类型更改为“数据点折线图”：

On Error Resume Next
ActiveSheet.ChartObjects("图表1").Activate
ActiveChart.ChartType = xlLineMarkers

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表