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

时间:2018-11-27 08:02:20

标签: vba powerpoint powerpoint-vba

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

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)

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

0 个答案:

没有答案