Creazione diagrammi

Massimiliano 27/05/2005 Difficoltà: Principiante

Ho creato un organigramma in excel usando il metodo AddDiagram dell'oggetto Shapes. Ho creato anche un nodo secondario con il metodo AddNode. Il mio grosso problema è che non riesco a scrivere il testo all'interno delle singole forme. Ho provato con la propietà TextShape ma mi dà il seguente errore "Impossibile impostare la proprietà Text della classe Characters" di seguito potete leggere il listato
Dim dgnRoot As DiagramNode
Dim shpDiagram As Shape
Dim dgnNext As DiagramNode
Dim intCount As Integer
Dim shpText As Shape
'Aggiunge un diagramma al documento attivo
Set shpDiagram = ActiveSheet.Shapes.AddDiagram( _
Type:=msoDiagramOrgChart, Left:=140, _
Top:=15, Width:=400, Height:=475)
'aggiunge un nodo al diagramma
Set dgnRoot = shpDiagram.DiagramNode.Children.AddNode
'composto da altre tre forme
For intCount = 1 To 3
dgnRoot.Children.AddNode
Next
'qui provo a settare il testo all'inetrno della prima forma e mi da errore
Set shpText = dgnRoot.Children.Item(1).TextShape
shpText.TextFrame.Characters.Text = "aaa"
Spero possiate darmi una mano
Ciao