Generate worksetshapes.xml

Hi

I've created a VBA to add different shapes (other than rectangular and circles) to the worksetshapes.xml. At the moment it doesn't work unless I've created a rectangular shape with the built in tool:

Because after creating that first one, the xml-file fills up with different shapes and so on:

Is there a way to generate this with VBA command or a keyin? 
Or is there andother way to get around this problem?

Running OBD, CE update 5

Robert

Parents Reply Children
No Data