DiagramOrgChart in text
 

I've been trying to create an organization chart diagram
using VBA, but generate an error whenever I try to set the
text for a node. This is a sample of my code:


Dim shDiagram as Shape
Dim nodRoot As DiagramNode
Set shDiagram = ActiveSheet.Shapes.AddDiagram( _
Type:=msoDiagramOrgChart, Top:=10, _
Left:=15, Width:=400, Height:=475)
Set nodRoot = shDiagram.DiagramNode.Children.AddNode
nodRoot.TextShape.TextFrame.Characters.Text = "First Node" <-


When I get to the last line, an exception is thrown
stating "Unable to set the text property of the Characters
class".


Any idea why?