Excel调用CorelDraw VBA宏赋值ActiveSelectionRange报类型不匹配错误

该类型不匹配错误由两个核心问题导致：

• 类型命名空间冲突：Excel VBA的宿主对象模型本身自带ShapeRange类型，声明变量时未指定类型库归属的情况下，VBA默认将变量识别为Excel自身的ShapeRange类型，和CorelDRAW COM接口返回的CorelDRAW专属ShapeRange类型不兼容，赋值时直接触发类型不匹配。
• 应用实例获取逻辑缺陷：直接写Set app = CorelDraw.Application的写法不会自动绑定当前已打开的CorelDRAW窗口实例，若存在多版本CorelDRAW并存、或CorelDRAW启动了无文档的后台进程，调用ActiveSelectionRange会返回空值或无效对象，进一步触发类型错误。

调整对象声明方式、修正实例获取逻辑后的可运行代码如下：

Private Sub MoveAndResizeSelection()
    Dim app As CorelDRAW.Application
    ' 捕获已运行的CorelDRAW 2022实例（2022版本对应ProgID后缀为24）
    On Error Resume Next
    Set app = GetObject(, "CorelDRAW.Application.24")
    On Error GoTo 0
    If app Is Nothing Then
        MsgBox "请先打开CorelDRAW 2022及目标绘图文档后再执行宏"
        Exit Sub
    End If
    
    ' 显式指定类型归属为CorelDRAW类型库，避免和Excel内置ShapeRange冲突
    Dim OrigSelection As CorelDRAW.ShapeRange
    Set OrigSelection = app.ActiveSelectionRange
    
    ' 执行选区移动
    OrigSelection.Move 2.595, -6.751
End Sub

若运行修复代码仍报错，请检查CorelDRAW当前状态：如果程序正处于文本编辑、节点编辑、曲线调整这类交互状态，没有处于常规的对象选择模式，ActiveSelectionRange会返回无效值，同样会触发类型不匹配，退出当前编辑状态即可恢复。

内容的提问来源于stack exchange，提问作者OGP99