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

时间:2014-04-03 03:54:56

标签: excel vba charts

出于某种原因,如果数据少于四行,并且您尝试分散图表,则图例中会显示集群(列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

1 个答案:

答案 0 :(得分:1)

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

 ActiveChart.PlotBy = xlRows or  ActiveChart.PlotBy = xlColumns

以编程方式执行此操作。