изменение текста в объекте SmartArt

Sub SmartArtAddNodes()
   Dim sli As Slide, shp As Shape, node As SmartArtNode, n As Integer
   For Each sli In Application.ActivePresentation.Slides
      For Each shp In sli.Shapes
         If shp.HasSmartArt Then 'Проверка, что фигура является объектом SmartArt.
' Раскомментируйте строку ниже, если узлы нужно добавить только в SmartArt типа Vertical Box List.
'           If shp.SmartArt.Layout.Name = "Vertical Box List" Then
            n = 0
            For Each node In shp.SmartArt.AllNodes
               If node.Level = 1 Then
                  n = n + 1
                  'Добавляем узел в объект SmartArt.
                  Set node = node.AddNode(msoSmartArtNodeAfter)
                  'Здесь вместо ["Данные" & n] можно подставить ваши данные.
                  node.TextFrame2.TextRange.Text = "Данные" & n
                  'Понижаем узел в ранге до подчиненного предыдущему узлу.
                  node.Demote
               End If
            Next node
' Раскомментируйте строку ниже, если узлы нужно добавить только в SmartArt типа Vertical Box List.
'           End If
         End If
      Next shp
   Next sli
End Sub

...
Dim shp As Shape, shp_node As Shape
Dim gsh As GroupShapes
...
Set gsh = shp.GroupItems
For each shp_node in gsh
...
Next shp_node
...

Sub QWERT()
Dim Q As Object
Set Q = ActivePresentation.Slides.Item(1).Shapes(1)
    With Q
        For i = 2 To .GroupItems.Count
        .GroupItems(i).TextFrame.TextRange.Text = i
        Next
    End With
End Sub

Dim Q As Shape

Sub QWERT()
    For i = 2 To ActivePresentation.Slides.Item(1).Shapes(1).GroupItems.Count
        ActivePresentation.Slides.Item(1).Shapes(1).GroupItems(i).TextFrame.TextRange.Text = i * 10
    Next
End Sub

Item(1).Shapes(1).GroupItems(i)

Dim PPApp As PowerPoint.Application

Sub SmartArtAddNodes()
   Dim oPPT As Object, p As Object, sli As Object, shp As Object, node As Object, n As Integer
   Set oPPT = CreateObject("PowerPoint.Application")
   'Здесь вместо "C:\Users\...\Desktop\MyPresentation" пишете реальное местонахождение вашей презентации.
   Set p = oPPT.Presentations("C:\Users\...\Desktop\MyPresentation")
   For Each sli In p.Slides
      For Each shp In sli.Shapes
         If shp.HasSmartArt Then 'Проверка, что фигура является объектом SmartArt.
' Раскомментируйте строку ниже, если узлы нужно добавить только в SmartArt типа Vertical Box List.
'              If shp.SmartArt.Layout.Name = "Vertical Box List" Then
            n = 0
            For Each node In shp.SmartArt.AllNodes
               If node.Level = 1 Then
                  n = n + 1
                  'Добавляем узел в объект SmartArt.
                  Set node = node.AddNode(msoSmartArtNodeAfter)
                  'Здесь вместо ["Данные" & n] можно подставить ваши данные.
                  node.TextFrame2.TextRange.Text = "Данные" & n
                  'Понижаем узел в ранге до подчиненного предыдущему узлу.
                  node.Demote
               End If
            Next node
' Раскомментируйте строку ниже, если узлы нужно добавить только в SmartArt типа Vertical Box List.
'              End If
         End If
      Next shp
   Next sli
End Sub

If shp.HasSmartArt Then

If p.Slides(i).Shapes(j).HasSmartArt Then

If PP.Slides(I).Shapes(j).HasChart Then
     'здесь надо сохранить эти числа в переменные
    End If

Dim oSl As PowerPoint.Slide
Dim oSh As PowerPoint.Shape
Set oSl = ActivePresentation.Slides(1)
Set oSh = oSl.Shapes(1)
With oSh.OLEFormat.Object.WorkSheets(1) 'вот здесь возникает окошко с надписью Run-time error, Automation error
    .Range("A1").Value = .Range("A1").Value + 1
    .Range("A2").Value = .Range("A2").Value - 1
End With
Set oSl = Nothing
Set oSh = Nothing
End Sub