是什么导致了CorelDraw VBA宏不匹配错误？

Question

我有一个简短的Excel宏，它接受(打开) CorelDraw绘图中的当前选择并将其移动。当我将OrigSelection设置为app.ActiveSelectionRange时，为什么会出现不匹配的运行时错误？这是我的代码：

Private Sub MoveAndResizeSelection()
    Dim app As CorelDraw.Application
    Set app = CorelDraw.Application
    Dim OrigSelection As ShapeRange
    Set OrigSelection = app.ActiveSelectionRange
    
    'Move and Resize the selection
    OrigSelection.Move 2.595, -6.751
    
End Sub

我正在使用Excel 16和CorelDraw图形套件2022。

Answer 1

元凶是

Dim OrigSelection As ShapeRange

这是隐含的

Dim OrigSelection As Excel.ShapeRange

变到

Dim OrigSelection As CorelDraw.ShapeRange