Thanks to recent help from the API DEV group volunteers, the below
routine works well when creating one shape....
sub set_draw(byval oPage as variant, byval Gradient as variant,_
byval Shape1 as variant, byval PShape as variant,_
byval PolyPolygon as variant, byval Shapes as object, byval Group
as object)
PShape.PolyPolygon = Array(Shape1())
PShape.Name = "Test" & asc(jj)
oPage.add(PShape)
' combine drawing elements
Shapes.add(PShape)
Group = oPage.group(Shapes)
jj=jj+1
end sub
However, when called several times with design data points for several
shapes, during the same program session, the routine will create several
groups, but only one shape -- this shape ending up being a
representation of the last design entity and residing in the last group ...
Is there an equivalent to using PShape as an array? I tried this and it
did not seem to work.
Thanks Much,
Mike Carmichael
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
