Question

出于某种原因，如果数据少于四行，并且您尝试分散图表，则图例中会显示集群（列A），但如果存在超过4行数据，则其他列（A， B，C）位于图例（Y轴）上。

你能否告诉我使用VBA如何将此图表重新定位为图表（2）？

我需要使用VBA将图例序列重定位到水平类别轴上（因为宏录制器不显示如何执行此操作。

GRAPH 1起初看起来像这样 enter image description here

图2这是我如何做的

（重定向图例条目 - 左侧和类别标签 - 右侧） enter image description here

GRAPH 3散点图对话框看起来像这样，这就是我想在VBA中做的事情 enter image description here

GRAPH 4 Final Graph看起来像这样，这就是我想要在VBA中实现的 enter image description here

最后这是宏录制器创建的内容，但是当我尝试运行它时，它的缺失，范围和Plotby参数都会失败

Range("A1:D3").Select
Range("D3").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData

Answer 1

您的列和行是相反的。选择图表后，请转到“设计”上下文选项卡，然后单击“切换行/列”。这样可以解决吗？如果是，您可以使用：

 ActiveChart.PlotBy = xlRows or  ActiveChart.PlotBy = xlColumns

以编程方式执行此操作。