DiagramOrgChart in text

Z

zenis

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?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top