使用Excel VBA更改图表和图例的方向


Change orientation of chart and legend using excel VBA

出于某种原因，如果数据少于四行，并且您尝试对其进行散点图，则图例中将显示群集(列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参数都失败了

1
2
3
4
5
Range("A1:D3").Select
Range("D3").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData

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

1
 ActiveChart.PlotBy = xlRows or  ActiveChart.PlotBy = xlColumns

以编程方式进行。