【CorelDraw VBA 012例】创建并提取轮廓

Sub CreateContour()
    '##创建并提取轮廓
    Dim rect As Shape
    Dim cSr As ShapeRange
    Set rect = ActiveShape
    ActiveDocument.Unit = 3
    Set e = rect.CreateContour(cdrContourToCenter, 10)
    Set cSr = e.Separate
    Set s = cSr(1)
End Sub

标签：Dim,VBA,Set,CorelDraw,Sub,012,CreateContour,rect,cSr
来源： https://www.cnblogs.com/ExcelSoSo/p/15602018.html