为什么我无法将 PowerPoint 图表分配给 VBA 中的图表变量？

Question

目前，我只是尝试按照说明进行操作 here，但我之前遇到过这个问题。出于某种原因，我无法将 PowerPoint 图表分配给已声明的 Chart 变量。使用 .HasChart，我已经确认那里肯定有一个图表，并且使用 Shapes(i).Type，我已经确认 Shape 是图表类型，但我得到运行时错误“13”：类型每次都不匹配。我已经在多个文件和多种图表类型中尝试过，但无济于事 - 我一定遗漏了一些明显而愚蠢的东西，但我无法弄清楚。

例如：

Dim plot As Chart

For Each shp In PPT.Slides(5).Shapes

    If shp.HasChart Then

        MsgBox (shp.Type)
        Set plot = shp.Chart 

    End If

Next shp

有什么想法吗？

Answer 1

因为PowerPoint.Chart 与Excel.Chart 不同（请参阅下面的注释...）。试试：

Dim plot As PowerPoint.Chart

当您执行Dim plot as Chart 时，因为Chart 是Excel 对象模型的成员，VBA 将默认使用Excel.Chart，除非另有说明。

以上假设与对 PowerPoint 库的引用进行早期绑定。如果您收到类似“未定义用户定义类型”的编译错误，这意味着您尚未设置对 PowerPoint 的项目引用。或者，您可以Dim plot as Object（通用对象类型），但那样会失去智能感知。

注意：从功能上讲，PowerPoint.Chart 与Excel.Chart 或Word.Chart 等基本相同，它们将具有相同的方法、属性等，并且几乎没有例外（我不能很容易想到）你可以对一个人做的任何事情，你都可以对另一个人做。唯一的问题是，当您指的是驻留在 PowerPoint 中的图表时，严格来说它不是 Excel.Chart，它需要被限定为 PowerPoint.Chart（或通用 Object type) 以避免不匹配错误。