图表，带平滑线和数据标记的散点图

zazhi · 发表于 2022-1-4 14:27

做散点图，选择“带平滑线和数据标记的散点图”，然后，就跟平常认知不一致了。
平常而言，选择到这里，就是一个图例，见图1，

可是，我的结果是图2，还需要再选一次。我要红圈内的选择。

zazhi · 发表于 2022-1-4 14:36

初次发帖，图片未能附上，补一下。

zazhi · 发表于 2022-1-4 14:42

该图是用VBA加进来的，代码两句话如下：
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select
'这是说，要加一个图表，是带平滑线和数据标记的散点图
ActiveChart.SetSourceData Source:=Range("$A$17:$A$21,$E$17:$E$21")
‘这是指定数据位置。
单个执行，能成功，批量执行，做出来的图，就是上图红框左边的图了。要自己再手工选一次，选择成右边样子。
求助的目标，能通过VBA，直接生成就是带平滑线和数据标记的散点图。

zazhi · 发表于 2022-1-4 15:03

该图使用VBA插入，源码如下：
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select
'插入带平滑线和数据标记的散点图
ActiveChart.SetSourceData Source:=Range("$A$17:$A$21,$E$17:$E$21")
'指定数据位置
测试时，能生成我需要的图，但是批量做的时候，输出结果就是红框左边的样子了。

493861364 · 发表于 2022-1-4 17:47

zazhi 发表于 2022-1-4 15:03
该图使用VBA插入，源码如下：
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select
' ...

我是直接清空图表数据系列，然后一个一个数据系列，再添加进去，然后再格式化图表系列
你可以把附件传上来看看，论坛里有很多厉害的老师、大神

		自动登录	找回密码
密码			免费注册

[求助] 图表，带平滑线和数据标记的散点图