Create CreateContour.bas

base/CreateContour.bas

@@ -0,0 +1,21 @@
+Sub TestMacro()
+  ActiveDocument.Unit = cdrMillimeter
+  Dim sh As Shape, shs As Shapes, cs As Shape
+  Set shs = ActiveSelection.Shapes
+  For Each sh In shs
+    Dim eff1 As Effect
+    Set eff1 = sh.CreateContour(cdrContourOutside, 5, 1, cdrDirectFountainFillBlend, CreateRGBColor(26, 22, 35), CreateCMYKColor(0, 0, 0, 100), CreateCMYKColor(0, 0, 0, 100), 0, 0, cdrContourSquareCap, cdrContourCornerMiteredOffsetBevel, 15#)
+    eff1.Contour.ContourGroup.Shapes(1).AddToSelection
+    eff1.Separate
+  Next sh
+
+    Dim OrigSelection As ShapeRange
+    Set OrigSelection = ActiveSelectionRange
+    Set sh = OrigSelection.CustomCommand("Boundary", "CreateBoundary")
+
+  ActiveSelection.Shapes.FindShapes(Query:="@Outline.Color=RGB(26, 22, 35)").CreateSelection
+  For Each sh In ActiveSelection.Shapes
+    sh.Delete
+  Next sh
+
+End Sub