excel - 当我尝试将某些内容变暗为图表或图表对象时出错

Question

我试图简单地在 VBA 中制作一个图表，但出现错误:

未定义用户定义类型

我已经能够将其调暗为对象并生成它，但随后我无法编辑其任何成员属性。我正在从 MS-Access 运行 VBA，但我不确定这会影响它。

这是我的完整代码

    Dim TATchart As ChartObject
    Set TATchart = wrkSht.ChartObjects.Add(Left:=200, Width:=375, Top:=50, Height:=225)
    With TATchart.Chart
        Set ChartType = xlXYScatterLines
        .SetSourceData Source:=wrkSht.Range(wrkSht.cells(1, 1), CurCell.offset(0, 1))
        Set .Title = "Total Over Time (MAW)"
    End With

编辑:wrkSht 已初始化为工作表并且一直工作正常。

Answer 1

如果您想将某些内容DimAs ChartObject，则需要添加对项目的引用。从 VB 编辑器的主菜单中，选择“工具”->“引用”。然后向下滚动列表，直到找到“Microsoft Excel <版本>对象库”并选中它旁边的框。

然后你的 Dim 应该可以编译。

Dim TATchart As ChartObject

您可以在其前面添加 Excel 作为其来源的提醒:

Dim TATchart As Excel.ChartObject

请注意，您可能会在 xlXYScatterLines 常量处遇到类似的编译错误，因为如果没有 Excel 类型库引用，Access VBA 也无法识别该错误。