CorelDRAW cdr插件 路径偏移

'定义一个ShapeRange类型的变量OrigSelection，用于存储图形对象范围，通常用来表示一组被选中的图形相关信息
Dim OrigSelection As ShapeRange
'将当前活动选择范围（ActiveSelectionRange，可能是当前选中的一组图形等情况）赋值给OrigSelection变量，以便后续操作使用
Set OrigSelection = ActiveSelectionRange

'定义一个Effect类型的变量eff1，用于表示某种图形效果对象，后续会用来创建特定的图形效果并进行相关操作
Dim eff1 As Effect
Set eff1 = OrigSelection(1).CreateContour(0, 5#, 1, 0, CreateCMYKColor(0, 0, 0, 100), CreateCMYKColor(0, 0, 0, 100), CreateCMYKColor(0, 0, 0, 100), 0, 0, 2, 4, 15#)

'将创建好的轮廓效果（eff1.Contour表示获取该效果的轮廓部分相关对象）中的轮廓组（ContourGroup）添加到当前选择范围中，也就是让这个轮廓效果在选择范围内生效或者参与后续操作等
eff1.Contour.ContourGroup.AddToSelection

'设置当前活动选择范围（ActiveSelection，即当前被选中的图形等对象）中图形的轮廓（Outline）的属性，通过命名参数（Color:）的方式指定轮廓颜色为创建的一个CMYK颜色对象（这里是青色（C）为0，洋红（M）为100，黄色（Y）为100，黑色（K）为0的颜色）
ActiveSelection.Outline.SetProperties Color:=CreateCMYKColor(0, 100, 100, 0)