VBA运行时错误424使用SmartArt节点时需要对象

Question

我一直在代码中遇到此错误，但我不知道它是什么问题。

Function vAddNode(oShp As Shape, iID As Integer, sText As String) As SmartArtNode
    Dim oNode As SmartArtNode
    Set oNode = oShp.SmartArt.Nodes(iID).AddNode
    oNode.Demote
    oNode.TextFrame2.TextRange.Text = sText
    Set vAddNode = oNode
End Function

我一直在那儿得到错误：

oNode.TextFrame2.TextRange.Text = sText

当我添加手表时，我继续看到oNode.TextFrame2.TextRange.Text不断获取Integer的类型，而不是应该的String。

当我在代码中使用该函数时，按以下方式使用它：

Set oNodeInRAM = vAddNode(oShp, 1, "RAM")

oShp最初位于：Dim oShp As Shape，然后在幻灯片中找到SmartArt形状时，将其设置为：Set oShp = ActivePresentation.Slides(slideno).Shapes(i)

有人可以帮我吗？我已经看了好几天了...谢谢你！