我一直在代码中遇到此错误,但我不知道它是什么问题。
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)
有人可以帮我吗?我已经看了好几天了...谢谢你!