有大神能实现图形替换功能吗

cdr2020里有个添加透视功能。可以手工调节四个节点对齐。但是我不知道用程序怎么控制这四个角点和目标的四个点对齐。
添加透视的宏记录代码如下：
Sub Macro10701()
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
ActiveSelection.CreatePerspective -10729.5892, -12659.0626, -6056.0998, 14591.9091
ActiveSelection.CreatePerspective 2980.1519, 1050.6785, -6056.0998, 19622.4133
ActiveSelection.CreatePerspective 855.6394, -1073.834, 2528.086, 8008.5157
ActiveSelection.CreatePerspective 1631.3156, -298.1578, -2528.8069, 14850.1938
End Sub

’获取目标的4个透视参数
.Shape_Effect, Effects
.Perspective_Shape, EffectPerspective
.HPoint_X, float
.HPoint_Y, float
.VPoint_X, float
.VPoint_Y, float
Shape_Effect ＝ Active_Document.GetActiveShape ().GetEffects ().GetPerspectiveEffects ()
Perspective_Shape ＝ Shape_Effect.GetItem (1).GetPerspective ()
HPoint_X=Perspective_Shape.HorizVanishingPointX
HPoint_Y=Perspective_Shape.HorizVanishingPointY
VPoint_X=Perspective_Shape.VertVanishingPointX
VPoint_Y=Perspective_Shape.VertVanishingPointY
‘用4个透视参数来设置你的图形
----------------------------------------------------------------------------------------------------
Your_shape.CreatePerspective (HPoint_X, HPoint_Y, VPoint_X, VPoint_Y)
----------------------------------------------------------------------------------------------------