“对象‘SmartArtNodes’的方法‘添加’失败”

Question

我有以下代码在 Excel 中运行，它正在调用 PowerPoint 幻灯片。我正在为 SmartArt 的每个现有节点设置一个文本并且它正在工作。但是，当我使用 AddNode 方法 (oSmartArt.AllNodes.Add.AddNode) 时出现错误。我做错了什么？

Set oSmartArt = d_ppt_output.Slides(SLIDE_SMART).Shapes("MyList").SmartArt

x = 1
While Cells(x, 1).Text <> ""
    If x > oSmartArt.Nodes.Count Then
        oSmartArt.AllNodes.Add.AddNode ''''' ERROR IS HERE!
    End If

    oSmartArt.AllNodes(x).Shapes.TextFrame2.TextRange.Text = ActiveSheet.Cells(x, 2).Text
    x = x + 1
Wend

我也将oSmartArt.AllNodes.Add.AddNode 替换为oSmartArt.Nodes.Add.AddNode，但我遇到了同样的问题。

错误是： -2147467259 (80004005) 对象“SmartArtNodes”的“添加”方法失败

整个代码可以在这里找到 - https://drive.google.com/drive/folders/1_O79iiG7hbBjMHMSH6kZGkWmjN1WGorR?usp=sharing

Answer 1

正如发布的那样，您的代码没有运行。您不能引用名称不在引号中的幻灯片。我在 PowerPoint 中创建了一个超级简单的版本，它以 5 人 SmartArt 开始。这是运行没有错误。它添加一个新节点并按预期填写文本：

Sub Test()
    Set oSmartArt = ActivePresentation.Slides(1).Shapes(2).SmartArt
    oSmartArt.AllNodes.Add.AddNode
    oSmartArt.AllNodes(6).Shapes.TextFrame2.TextRange.Text = "Wha?"
End Sub