Organigrama
Que tal. Quisiera pedir tu ayuda con lo siguiente.
Estoy haciendo esto en Power Builder.
myoleobject.application.ActiveWorkbook.ActiveSheet.Shapes.AddDiagram(1,0,0,400,200)
myoleobject.application.ActiveWorkbook.ActiveSheet.Shapes(1).DiagramNode.Children.AddNode(1,1)
Y a este nodo que agregue necesito ponerle un texto pero no puedo he intentando hacer lo sig:
myoleobject.application.ActiveWorkbook.ActiveSheet.Shapes(1).DiagramNode.Children.Item(1).TextShape.TextFrame.Characters.Text = "MiTexto"
Pero me da error, no sé si me puedes ayudar.
O tal vez otra forma de realizar un organigrama en pb.
Gracias
Estoy haciendo esto en Power Builder.
myoleobject.application.ActiveWorkbook.ActiveSheet.Shapes.AddDiagram(1,0,0,400,200)
myoleobject.application.ActiveWorkbook.ActiveSheet.Shapes(1).DiagramNode.Children.AddNode(1,1)
Y a este nodo que agregue necesito ponerle un texto pero no puedo he intentando hacer lo sig:
myoleobject.application.ActiveWorkbook.ActiveSheet.Shapes(1).DiagramNode.Children.Item(1).TextShape.TextFrame.Characters.Text = "MiTexto"
Pero me da error, no sé si me puedes ayudar.
O tal vez otra forma de realizar un organigrama en pb.
Gracias
1 Respuesta
Respuesta de Antonio Garcia
1