I am trying to come to terms with excell 2010 autoshapes. (and no record macro for these.)
The insert shape gives shapes where the points are not to be found by me but perhaps by you.. as
ShapePtsArray = .Item(Li).PointS only works for freeform shapes or
If on the shape you use rightclick and edit points and move a point this converts the shape into a freeform with control points.
this changes it from a type 1 to a type 5 and its AutoshapeType to 138
and ShapePtsArray = .Item(Li).PointS works
and you can make it into Bezier curves, polyPoints, etc
to use ActiveSheet.Shapes.AddPolyline ; to draw shapes
and hRgn = CreatePolygonRgn(PolyPtsA(0), CPointS, 1) ' to get regions of a window
But there should be a way to do this with code and not have to resort to change the shape type by moving a point????
The insert shape gives shapes where the points are not to be found by me but perhaps by you.. as
ShapePtsArray = .Item(Li).PointS only works for freeform shapes or
If on the shape you use rightclick and edit points and move a point this converts the shape into a freeform with control points.
this changes it from a type 1 to a type 5 and its AutoshapeType to 138
and ShapePtsArray = .Item(Li).PointS works
and you can make it into Bezier curves, polyPoints, etc
to use ActiveSheet.Shapes.AddPolyline ; to draw shapes
and hRgn = CreatePolygonRgn(PolyPtsA(0), CPointS, 1) ' to get regions of a window
But there should be a way to do this with code and not have to resort to change the shape type by moving a point????
