pedie
Well-known Member
- Joined
- Apr 28, 2010
- Messages
- 3,875
Hi I need help for VBA return the name of active smart art node?
so far the failed code is below
thank you.
so far the failed code is below
Code:
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