时间戳

首页 > 解决方案 > VBA 运行时错误 424 使用 SmartArt 节点时需要对象

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

问题描述

我的代码不断收到此错误，但我不知道它有什么问题。

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)

谁能帮我解决这个问题？这几天我一直在看这个......提前谢谢你！

标签： vbapowerpoint

解决方案

推荐阅读