1.图表【Chart对象】2020年9月21日9:42
1.1 创建图表到新的工作表
2020年9月20日9:12
Option Explicit'强制声明变量
Sub 添加图表()
Dim 图表
Set 图表 = ThisWorkbook.Charts.Add '默认是当前工作簿，建议指定写代码的这个工作簿With 图表
'指定"A1:D4"做数据源，行做数据系列
.SetSourceData Source:=Sheets("柱形图").Range("A1:D4"), PlotBy:=xlRows
煮汤圆图片
'指定图表类型
.ChartType = xlColumnClustered
'指定图表显示数据表格，注意并不是所有图都显示，例如饼图
.HasDataTable = True
'显示默认的数据标签的类型
.ApplyDataLabels
'图表的标题可见
.HasTitle = True
留住美好的记忆'图表标题的显示文本，前提是上一步设置成True
.ChartTitle.Text = "考试成绩"
'图例是否显示
.HasLegend = Fal
'新生成那张图表工作表的名称
.
Name = "XXX2"
End With
Set 图表 = Nothing
End Sub
附：XlChartType类型
2020年9月20日11:17
XlChartType 可为以下 XlChartType 常量之一：xlLine 折线图
xlLineMarkersStacked 堆积数据点折线图xlLineStacked 堆积折线图
伶牙俐齿xlPie 饼图心机深沉
xlPieOfPie 复合饼图
xlPyramidBarStacked 堆积条形棱锥图xlPyramidCol 三维柱形棱锥图xlPyramidColClustered 簇状柱形
棱锥图xlPyramidColStacked 堆积柱形棱锥图xlPyramidColStacked100 百分比堆积柱形棱锥图xlRadar 雷达图
xlRadarFilled 填充雷达图社会现象
xlRadarMarkers 数据点雷达图
xlStockHLC 盘高-盘低-收盘图
xlStockOHLC 开盘-盘高-盘低-收盘图xlStockVHLC 成交量-盘高-盘低-收盘图xlStockVOHLC 成交量-开盘-盘高-盘低-收盘图xlSurface 三维曲面图
xlSurfaceTopView 曲面图（俯视图）xlSurfaceTopViewWireframe 曲面图（俯视框架图）xlSurfaceWireframe 三维曲面图（框架图）xlXYScatter 散点图
xlXYScatterLines 折线散点图xlXYScatterLinesNoMarkers 无数据点折线散点图
xlXYScatterSmooth 平滑线散点图xlXYScatterSmoothNoMarkers 无数据点平滑线散点图xl3DArea 三维面积图
xl3DAreaStacked 三维堆积面积图
你的名字歌词
xl3DAreaStacked100 百分比堆积面积图
xl3DBarClustered 三维簇状条形图
xl3DBarStacked 三维堆积条形图
xl3DBarStacked100 三维百分比堆积条形图
xl3DColumn 三维柱形图
xl3DColumnClustered 三维簇状柱形图
美女人绘
xl3DColumnStacked 三维堆积柱形图
xl3DColumnStacked100 三维百分比堆积柱形图
阳光女生头像xl3DLine 三维折线图
xl3DPie 三维饼图
xl3DPieExploded 分离型三维饼图
xlArea 面积图
xlAreaStacked 堆积面积图
xlAreaStacked100 百分比堆积面积图xlBarClustered 簇状条形图
xlBarOfPie 复合条饼图
xlBarStacked 堆积条形图
xlBarStacked100 百分比堆积条形图
xlBubble 气泡图
xlBubble3DEffect 三维气泡图xlColumnClustered 簇状柱形图xlColumnStacked 堆积柱形图
xlColumnStacked100 百分比堆积柱形图xlConeBarClustered 簇状条形圆锥图
xlConeBarStacked 堆积条形圆锥图xlConeBarStacked100 百分比堆积条形圆锥图xlConeCol 三维柱形圆锥图xlConeColClustered 簇状柱形圆锥图xlConeColStacked 堆积柱形圆锥图xlConeColStacked100 百分比堆积柱形圆锥图xlCylinderBarClustered 簇状条形圆柱图xlCylinderBarS
tacked 堆积条形圆柱图xlCylinderBarStacked100 百分比堆积条形圆柱图xlCylinderCol 三维柱形圆柱图xlCylinderColClustered 簇状柱形圆锥图xlCylinderColStacked 堆积柱形圆锥图xlCylinderColStacked100 百分比堆积柱形圆柱图xlDoughnut 圆环图
xlDoughnutExploded 分离型圆环图xlLineMarkers 数据点折线图xlLineMarkersStacked100 百分比堆积数据点折线图xlLineStacked100 百分比堆积折线图xlPieExploded 分离型饼图xlPyramidBarClustered 簇状条形棱锥图xlPyramidBarStacked100 百分比堆积条形棱锥图
