Ошибка выполнения VBA 424 Требуется объект при использовании узла SmartArt - PullRequest
Новая
       7

Ошибка выполнения VBA 424 Требуется объект при использовании узла SmartArt

0 голосов
/ 27 ноября 2018

Я продолжаю получать эту ошибку для своего кода, и я не знаю, в чем проблема с ней.

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)

Может кто-нибудь, пожалуйста, помогите мне с этим?Я просматриваю это уже несколько дней ... Заранее спасибо!

...