|
Hi, My problem was in the dimensioning! The old code line which did not work, was: Global Shape1(2999) As New com.sun.star.awt.Point In order to use Shape1() in two different subroutines. A sketch of the new code line and arguments added to subroutines is: sub dshape() . . Dim Shape1(2999) As New com.sun.star.awt.Point . . readdata(Shape1) . . PolyPolygonShape.PolyPolygon = Array(Shape1()) . . . sub readdata(Shape1 as variant) . . . shape1(ii-1).x = val(mid(CLine, 5, 15)) . . shape1(ii-1).y = val(mid(CLine, 5, 15)) . . . Thanks again! Paolo Mantovani wrote: Hi Mike, Alle 17:05, venerdì 26 agosto 2005, Mike Carmichael ha scritto:While using a beta version of OpenOffice, on two different systems(Millennium & 2000), a macro which draws a parabola generates the following error consistently after the macro has been run once: |
