时间戳

首页 > 解决方案 > 尝试在 Excel 宏中制作图表时出错

excel - 尝试在 Excel 宏中制作图表时出错

问题描述

我正在尝试制作一个宏，它将用两列数据为我制作一个图表。无论我做什么，我都会遇到这个错误。我在这里附上了一张图片。

在此处输入图像描述

标签： excelvbaexcel-charts

解决方案

宏记录器通常会编写糟糕的代码——它有助于找出您想要使用的属性或方法，但重写它创建的内容几乎总是更好。

例如，这更整洁，更容易修改：

Dim shp As Shape, cht As Chart

'get a reference to the added shape
Set shp = ActiveSheet.Shapes.AddChart2(240, xlXYScatter)
shp.Left = 100  '<< better than using IncrementXXX methods
shp.Top = 100
shp.Height = 300
shp.Width = 400

'get a reference to the contained Chart object
Set cht = shp.Chart
cht.SetSourceData Sheets("Sheet6").Range("F10:F41,H10:H41")
cht.SetElement msoElementPrimaryCategoryAxisTitleAdjacentToAxis
cht.SetElement msoElementPrimaryValueAxisTitleAdjacentToAxis

推荐阅读