can VBA return the name of active smart art node?

[pedie]

Hi I need help for VBA return the name of active smart art node?

so far the failed code is below

Sub test1()
    Dim objShape As Shape
    Dim SmartArtNod As SmartArtNode
    Dim c


    Set objShape = ActiveSheet.Shapes(1)


    ' first node
    'Set SmartArtNod = objShape.SmartArt.AllNodes(1)




    For c = 1 To objShape.SmartArt.AllNodes.Count
        
    Next
    
'    ' paint shape in green with yellow letters
'    With SmartArtNod.Shapes(1)
'        .Fill.ForeColor.RGB = vbGreen
'        .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = vbYellow
'    End With


End Sub

thank you.