Automatización VFP de Visio
Publicado por Ana (15 intervenciones) el 21/05/2010 01:07:28
Vuelvo a insistir, porque no supe explicarme bien.
Estoy creando un programa en VFP que crea un documento en MSVisio en el cual tengo varios cuadros (Shapes) los cuales ya he dibujado y puesto en las coordenadas debidas, pero al crear las flechas conectoras (puedo mover el inicio y el fin del conector) tengo dificultades en pegar el inicio y fin a los cuadros.
oVisio = CREATEOBJECT("Visio.Application")
oVisio.Visible=.T.
oDocs = oVisio.Documents
oDoc = oDocs.OpenEx("d:/privado/visio/macrosVisio.vsd", 32)
visOpenRW = 32
oPages = oDoc.Pages
oPage = oDoc.pages(3)
oPage.DrawRectangle(x1, y1, x2, y2)
xq_shapes = oPage.Shapes.count
oShape = oPage.Shapes(xq_shapes) && El último shape
oMasters = oDoc.Masters
oPage.Drop(oMasters.ItemU("Dynamic connector") ,0,0) && Agrega un conector
Intenté agregar un row al Connection Points del cuadro (para poder pegarlo) con:
oShape.Addrow(1,1,1), pero me bota error.
Por favor si alguien sabe por qué?.
Gracias,
Ana
Estoy creando un programa en VFP que crea un documento en MSVisio en el cual tengo varios cuadros (Shapes) los cuales ya he dibujado y puesto en las coordenadas debidas, pero al crear las flechas conectoras (puedo mover el inicio y el fin del conector) tengo dificultades en pegar el inicio y fin a los cuadros.
oVisio = CREATEOBJECT("Visio.Application")
oVisio.Visible=.T.
oDocs = oVisio.Documents
oDoc = oDocs.OpenEx("d:/privado/visio/macrosVisio.vsd", 32)
visOpenRW = 32
oPages = oDoc.Pages
oPage = oDoc.pages(3)
oPage.DrawRectangle(x1, y1, x2, y2)
xq_shapes = oPage.Shapes.count
oShape = oPage.Shapes(xq_shapes) && El último shape
oMasters = oDoc.Masters
oPage.Drop(oMasters.ItemU("Dynamic connector") ,0,0) && Agrega un conector
Intenté agregar un row al Connection Points del cuadro (para poder pegarlo) con:
oShape.Addrow(1,1,1), pero me bota error.
Por favor si alguien sabe por qué?.
Gracias,
Ana
Valora esta pregunta


0